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GENERATION 


C'est pas pour faire préten- 
tieux, mais merde, les petits 
jeunes, ils ne connaissent rien 
à rien. Parce qu'ils ont tâté du 
ST et de l'Amiga, ils ont tout 
vu, ils sont sûrs de pouvoir fai- 
re une carrière d'informaticien. 
Laissez-moi doucement rigo- 
lerrrebis 20ns. 


TOUT EST CHAOS 


…!s dis *pelits cons”, j'ai mes 


raisons. Tu leur annonces 
qu'une machine coûte plus de 
S000francs, et ils s'arrachent 
les cheveux, ils poussent des 
grands cris, il faut leur mettre 
des grandes taloches pour les 
calmer. Au fond, ce que je 
pense, c'est que Papa Tramiel 
(Atari) et Tonton Sugar (Am- 
strad) ont bien réussi: nous 
voilà avec une génération de 
nains qui pensent qu'un ordi- 
nateur ne doit pas coûter plus 
de 3000 francs, doit comporter 
au moins un Mega de RAM, et 
crachent dessus si le proces- 
seur mouline à moins de 
8MHPZz. Je vous disais, des pe- 
tits cons. Alors que la micro- 
informatique, mis à part les 
deux consumeristes mégalos 
cités plus haut, ça a TOU- 
JOURS été cher, et pas forcé- 
ment performant pour autant. 
Des exemples, j'en ai plein, 
passons au paragraphe sui- 
vant, ou bien ça sera le bordel. 


TOUS MES IDEAUX 


Arbitrairement, je vais com- 
mencer par le PET, de Com- 
modore, laissons tomber les 
KIM-1 et les Proteus IIl, c'est 
beaucoup trop galère, ça ne 
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LA MICRO, C'EST LA MORT | 


Alors comme ça, on fait les difficiles, on trouve que le ST, c'est plus assez bien pour Môssieur? C'est la fin des hari- 
cots, le ST est foutu, il va falloir commencer à faire des stocks de trucs et de machins? Avant de le condamner, visez 
un peu comment ça se passait, avant, il y a, pffioouuu, bien longtemps. Ca nous rajeunit pas, ces conneries. 


m'intéresse pas. Le PET, à 
l’époque, à la fin des années 
70, c'était un petit bijou: on 
pouvait toucher avec ses 
doigts à soi 8 Ko de RAM, on 
tripotait son premier 6502, on 
dessinait avec des caractères 
graphiques, ça donnait du 200 
par 40 et on était heureux. Il 
était pas beau, mais on était 


l4 TR ni 
ANT ce 
FUIT À | Des * 





Le Mur des Lamentations, lieu de rendez-vous de tous 


cro-informatiques, tu les comp- 
tais sur les doigts de la main, 
tous dans les beaux quartiers, 
re-forcément. Les industriels 
de l'informatique ont réfléchi, 
ils ont regardé leurs ordina- 
teurs: à qui on pouvait bien les 
refiler sans tomber dans le 
gouffre du grand-public, salo- 
perie de grand-public qui ne 





les informaticiens, qu'ils s'appellent David ou non. 


heureux, pourvu qu'on allon- 
get les 7500 balles, ils étaient 
souriants et polis, à l'époque, 
les revendeurs. Aujourd'hui, 
macache, ils te prennent ton 
chèque de deux barres avec 
un air forcé, c'est à peine s'ils 
ne te crachent pas sur les 
chaussures. 


DES MOTS ABIMES 
Avec des trucs à 7500 balles, 


forcément, tu ne touchais pas 
grand-monde, et les clubs mi- 


Des centaines de petites annonces. Pour vendre ou pour acheter ? 


Les deux, mon Colonel, et aussi pour échanger, diverser ou employer. 


Le plus beau, c'est que c'est gratuit, ça coûte pas un radis, c'est ce 
qu'on appelle une aubaine ! Elles sont quelque part dans le canard. 





veut que des prix bas, Îls ont 
réfléchi encore un peu, il faut 
ce qu'il faut, et puis on a eu 
droit à de beaux Goupil dans 
les écoles, des machines qui 
plantaient quand ça leur plai- 
sait, mais au moins ça plantait 
français, et c'était orange, c'était 
joli. Plus tard, via des plans in- 
formatiques extrêmement coû- 
teux et inutiles, on a eu les Silz 
et les Thomson, qui n'étaient 
ni oranges ni jolis, mais qui 
continuaient de planter français, 
on a sa fierté, oui ou merde? 





JE CHERCHE UNE AME 


Heureusement, les construc- 
teurs étrangers ne se tour- 
naient pas les pouces, et il 
commençait à pleuvoir des 
machines aux carosseries bi- 
garrées, purée que c'était 
moche. liy avait eu le TRS 80, 
un trüc au clavier que si tu le 
touches tu meurs d’apoplexie, 
mais qui avait un Basic et une 
résolution graphique qui te- 
naient la route. 

En parlant de résolution, une 
machine qui eut un beau suc- 
cès d'estime, ce fut le DAI, 
une machine qui nan contente 
d'être belge offrait par ailleurs 
16 couleurs en 512 par 244. 
Pour une machine conçue au 
tout début des années 80, 
c'était géant, sans parler des 
sons, sur quatre voix, quand 
même, le tout piloté par un 
8080 et essayable chez soi 
après avoir läché une bonne 
douzaine de Pascal. On en 
était fous, vous vous rappelez? 
Oui, je sais, je n'ai pas parié 
de l'Apple, c'est voulu, Tout le 
monde le connait, il n'y a rien 
à dire, si ce n'est que c'était 
cher, qu'il y avait plein de 
softs, qu'il était super, et que 
je crevais d'envie d'en avoir 
un, Voilà. 


QUI POURRA M'AIDER 


Voilà pour les éléphanis, les 
dinosaures. Parce qu'après, à 
partir de 84-85, il est sorti 
plein de nouvelles machines, 
un vrai plaisir pour les canards 
de micro. C'est vrai, rappelez- 
vous, il en sortait quasiment 
tous les mois, ça sortait de 
partout, on nous vendait du 
test machine à tire-larigot, 


FORMATION AU 88888 


par Fabrice BROCHE. Page 35. 





c'était génial. Les jeunes, au- 
jourd'hui, ils ne connaissent 
pas ça. L'Atari ST, l'Amiga, et 
le PC plus le Mac, à la rigueur, 
et voilà. Je vais encore jouer 
sur la fibre nostalgique: que 
celui qui ne s'amusait pas à 
comparer les performances 
des Basic me jette la première 
pierre, s’il ose. 





STMAGICIEL 


La petite bête qui a eu un suc- 
cès fou, c'était le ZX 80 puis le 
ZX 81, parce que c'était pas 
cher, Et à l'époque, ce qui 
était pas cher, c'était bien 
daube-daube. Ceci dit, malgré 
son unique kilo-octet de RAM, 


suite page 2... 


GRAND 
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STMAGICIEL 
& SUZUKI 


Voyez en page 35. 





FORMATION AU RISC ET AU CISC 
par Sébastien MOUGEY. Page 35. 








Ceci est un code-bare. N est beaucoup 
plus joli que coli des concurrents, le nôtre 
est le plus réussi, regardez-moi ls grèce 
de ces hgnes, c'est beau. Là, avec un code 
comme celui-ci, on ne 88 moque pas 
du cher, on a fat les choses en grand. 


LI 


DES PROGRAMMES POUR VOTRE ATARI ST : 
GFA BASIC + ASSEMBLEUR « BASIC OMIKRON « 
LANGAGE C + STOS BASIC 

























REM * pour QUARTET 






REM * 
REM * 








REM 

REN LETILEEE EEE ELELLLSE] 
REM * initialisations # 
REM [TTTETETLELLEEES LE] 
REM 

DIM avr$ (30) 

DIM avx_name$ (30) 

DIM lengtht {30} 

DIM repeat +130) 

DIM repeat_length#{30) 
nb_samplet=-] 

dummy$=0 

fi$=8400 

É£+=16000 

REM 


REM [YXETELIZILILLLELLLELELE) 


REM * selection du module * 
REM hhhahhhhtttéretetitihnt 
REM 
FILESELECT “*,M0D", "*, mod$ 
IF mod$<>"" 
cree avr 
cree set 
ENDIF 
END 
PROCEDURE cree avr 
REN 





























REM LELLTEE IEEELLELLELELELEE) 


REM * ouverture du module * 
REM tétatitétirétennenennns 






























suite de la page 1. 


il s'était vendu à plusieurs mil- 
lions d'exemplaires, le ZX 81. 
On en file à un jeune, au- 
jourd'hui, il te griffe les joues, 
ça nous apprendra à faire des 
expériences débiles, aussi. 
Bon, il faut reconnaître que fal- 
lait quand même être particu- 
llèrement secoué pour se 
payer un truc aussi nullard, 
même pour moins de 700 
francs, ça a marché parce que 
Sinclair faisait croire qu'on 
pouvait s'initier à l'informa- 
tique en pianotant sur un cla- 
vier conçu pour des nabots. 

Et puis Sinclair a fait des pro- 
grès, ou a eu des scrupules, et 
a sorti le ZX Spectrum, voilà 
enfin une machine potable, 
tant qu'on met de côté le cla- 
vier-gomme et le Basic Sin- 
clair. On a commencé à voir 
des jeux à te mettre l'eau à la 
bouche, et la machine était 
bien servie point de vue exten- 
sions. 

Avant cela, il était sorti le Dra- 
gon 32, avec 500 balles (et 
des brouettes) à raquer en 
plus pour avoir 32 malheureux 
Ko supplémentaires. Ca les 
fait sourire, les jeunes, hein? 
Et les neuf couleurs, ça les fait 
éclater de rire, hein? 


Si LA MORT EST UN MYS- 
TERE 


À cette époque-là, il y avait 
une tripotée de machines, 
c'était pas simple de choisir, 
quoiqu'on en éliminait cer- 
taines d'office: l'Aquarius, le 
Laser 200, Le Jupiter Ace, le 


Le module choisi est décomposé en échantillons, qui 
sont passés de la fréquence du module (généralement 
8400 Hz) à celle de Quartet (16000 Hz par exemple). 
Ces deux fréquences sont modifiables (f% et ff%). 


REM TT11111111111I111111111111])L11LLL;,LL:););,)) LE) 


REM * conversion de modules scundtracker (MOD) * 
REM * en échantillons (AVR) et voiceset (SET) À 


BEM [ETTIII11111111LLLILLLLIL22LL)IIILEEEEELLEELE, 


(c} Les deux sclés de l'écran - 1951 * 
Pascal Craponne et Benoit Arribart É 
REM PTTITTITIIIIIL I I IIIIIILILLLLLSLL)LLLLLLLELELE) 


buffers pour samples 
Inom des samples 
itaille des samples 
Ipoint de bouclage 
longueur de bouclage 
inœbre de samples 


lfréquence initiale 
fréquence finale 


tcréation des AVR 
création du SET 


MOD_CONV 


ll s'agit d'une moulinette dans laquelle vous passez vos modules soundtracker (. MOD) pour obtenir 
des fichiers pour Quartet: des échantillons (.AVR) et le voiceset (.SET). 


p#=INP (40) 
L MEXT it 


REM 


FOR i$=0 70 nt 


ADD samt,nb pat+*1024 


Pascal CRAPONNE & Benoit ARRIBART 


Les échantillons sont transformés un par un en échan- 
tillons Quartet, puis le voiceset est créé. Le program- 
me gère les modules de 15 à 31 instruments. 


pour chaque position 
on Lit quel pattern 


nb_pat#=Mit(pitl,nb pat#} lon note Le max 


loféset des sanples 


REM FFETIII III LILELILELLLLLLELLELLELLELS, 


REM * lecture des Snfos sur les samples * 


REM PTTATTETETITI12111122LLLILLLLEEELLEELE 


REM 


PRINT "Exploration du module :" 


SEEK 40,20 
30 


len 


FOR i4=0 70 nb_instt-1 
avr_name$ (3$}=SPACES 122) 
BGET 40, VARPTR (avr name${3$)),22 nom du sample 
AGET 40, VARETR(lengtht(3#)1+2,2 longueur 
BGET 40, VARPTR(repeat# (1%) },4 
BGEZ 40, VARPTR(repeat_length® (34)}+2,2 


lvolure+repeat 
lrepeat 


IF length# (4) >0 
length# (34}=2*length$ (14) 


repeat+(j4}=2*(repeat$ (1%) AND 65535) 
repeat_length4{jt}-2*repeat_lengthà [55] 


INC jt 


INC nb_sarplet 


ENDIF 
NEXT it 


PRINT nb sample#+l;" échantillons." 
REM 


REM LÉLLZI III TIILLERERELLLLEE) 


REM * lecture des samples * 
BEN CERTIIILLLLILLLLL:11:1112 


REM 
PRINT 


PRINT “Lecture des échantillons :” 


SEEX 90, samt 


FOR i4=0 T0 nb samplet 


BBC, le MC10 de chez Tandy, 
etc. C'est pas qu'elles fussent 
mauvaises, mais bon, si on sa- 


vait qu'elles existaient, elles ne . 


nous attiraient pas, ça se limi- 
tait à Ça. 

En fait, à partir de 84-85, cer- 
taines machines sont sorties 
du peloton, et celui qui avait 
des brouzoufs devait se creu- 
ser la tête pour être sûr de pas 
se planter, histoire que les voi- 
sins ne se moquent pas. 

C'est pas difficile: Il y avait 
l'Atari 800XL, le Vic 20 rapide- 
ment remplacé par le Commo- 
dore 64, l'Apple llc, les Oric (le 
simple au goût nature, et l’At- 
mos), le Ti 99/4 A. Après seu- 
lement sont arrivés les Am- 
strad, le QL, et les MSX, puis 
le ST et l'Amiga ont fait le mé- 
nage. Elles ne sont pas toutes 
sorties en même temps, alors, 
du coup, on pouvait regretter 
son choix trois mois après 
avoir lâché ses économies, les 
grosses bouboules, Chacune 
avait ses fanatiques, ce qui 
compliquait encore plus les 
choses, y a rien de pire que 
des avis tranchés et contradic- 
toires quand il s'agit de choi- 
sir, dans un domaine où on y 
connait nib. Ces machines, on 
les trouvait géniales, et si tu 
disais le contraire c'était que 
tu n'y connaissais rien et prends 
ça, tu l'as bien mérité, et Ça, et 
ça, et ça, salaud. 


LA VIE N’A RIEN DE TENDRE 


Comme dans tout système, il 
se produit un phénomène de 
régulation, d'auto-élimination, 
les plus faibles disparaissent 





REM PRINT avr_name$ (it); 

1a$=SPACES (4) Itype de module sour$=STRINGS (lengthé{i#),0) 

ŒEX "i”,1#0, mods 18 10C (40) +length# (14) >LOF (40) 

SEEX 40,6H438 PRINT * : tronqué" 

BGET 10, VARPTR (id$) , 4 Length$ (14) LOF (#0}-10C (40) 

IF id$="M.K." 131 instruments repeat# (1$}=0 
nb_inst#=3l repeat_length+{it}=lengtht (i3} 

SEEK #0, 6H3B6 ELSE 

nie [ne (40) Inobre de positions ERINT * : ok” 

SEEK 40,388 EXDIF t 
samè=&H43C BGET 40, VARPTR {sour$), length# {14} 

ELSE 115 {Instruments REM ** lei on convertit la fréquence ** 
nb instt=15 REM ** de Fit Hz à F£+ Hz LE 
SEËX 40, &H1D6 Lengtht{it)=lengtht (14) *££4/£14 
ni=INP (40) Inobre de positions repeat# (14)=repeatt {it} *FFA/ELR 
SEEX #0,4H1D8 repeat_lengtht (i%}=repeat_length{i$) *f f$/£it 
sam4=64259 avr$ (14)=STRINGS (length® (14) , 0) 

ENDIF FOR j+-0 TO Jength#(i$}-] 


naturellement. Autrement dit, il 
y a les flops, capito? Dans ce 
rayon, l'exemple-type, ça a été 
le micro-console Adam, de 
chez CBS Colecovision, le flop 
de la mort, parce qu'il y avait 
eu un tel battage médiatique 
qu'on en a ri à gorge d'autant 
plus déployée que le succès 
attendu était nul. À la deuxiè- 
me place, le Lynx, à ne pas 
confondre avec la petite 
console d'Atari (Au passage, 
messieurs d'Atari France, si 
vous continuez à dire “Le 
Lynx'quand tout le monde 
parle de “La Lynx", ST Maga- 
zine ne parlera plus que de “la 
ST", c'est vu?}, un micro-ordi- 
nateur que l'on présentait 
comme un concurrent pos- 
sible au Commodore 64, vous 
en avez déjà vu tourner un, 
vous? 

Derrière, le Lansay 64, baptisé 
Elan dans un premier temps, 
s'est vautré lamentablément, 
chose bizarre puisqu'il était 
pas mal attendu, surtout après 
les tests dithyrambiques qui 
l'avaient accueilli, surtout ceux 
d'Hebdogiciel. Pour finir en 
beauté, avant de passer au 
rayon français (quoique flops 
et produits français ont fait 
bon ménage), il faut citer le fa- 
meux Laser 3000. Ha, vous 
avez oublié. C'était la bébête 
qui allait permettre d’avoir tous 
les bons jeux miam-miam de 
l'Apple, pour quelques milliers 
de francs de moins. Manque 
de bol, ça marchait pas, la 
machine opposait un niet fer- 
me et définitif devant la majori- 
té des jeux Apple. C'est con, 
hein? 


POKE VARPTR (avr$(i8})+)%,PEEK (VARPTR (sour$} 


+jttfis/£fs) 

NEXT j6 
EXT i$ 
REM 


REM [TRRTIFILII LE LI ILEELL] 
REM * ecriture des :AVR * 


BEN Énniihhinntanetennise 
REM 
PRINT 
PRINT “Ecriture des AVR : 
FOR 1+=0 TO nb samples 
PRINT avr name${it):" -> "; 
J8INS7R {avr name${it),":") 


nom fich$=MIDS {avr_names (14), 55+1,8) 
po lon remplace les *.* 


Jt=INSTR (nom_Éich$, *.*} 
EXIT 1F j3=0 


nom fich$=LEFTS (nom fichs, 3-1) #*_"4MID$ 


(nom Eich$, +1, LEN (nom Æich$) -58) 
Loop 
J4=INSTR (nom_£ich$, CHRS (0) } 
IF j4-0 
jh-9 
ENDIF 


nom fich$=UPPERS ILEPTS (nom fich$, j+-1)) 


avr_nare$ {it)=nom fich$ 

PRINT avr_names (14) +".AVR" 

CPEN "o”,fi,avr names {[it}+".AVR" 
êcree header (14) 


BEUT #1, VARPTR (avr$ (14}}, length$ (i4] 


CLOSE #1 


PROCEDURE cree set 
REM 


REM férétonnettnetnnetsetee 


REM * header d'un voiceset * 
REM ETTIITILLLLII1111111111:),) 


FEM 


PRINT 
PRINT “Création du Voiceset "“;set$ 
OPEN “O",fi,set$ 

OT #1,16 

OUT #l,nb_samplett2 
FOR 1%=0 70 nb samplet 


NEXT i$ 
PRINT #1,STRINGS (142=L0C (41) ,0) ; 
a%"342 


FOR i%=0 70 nb sampèt ! adresse des samples 
! dans le voiceset 


PRINT #1, HKLS (afl ; 
ADD at, lengtht (14) 28 
NEXT i$ 


SI LE CIEL À UN ENFER 


C'était l'époque où les français 
pensalent encore qu'ils pou- 
vaient se faire une place, nous 
‘étions les génies de l'informa- 
tique. Depuis, vous avez peut- 
être remarqué, nous ne sOm- 
mes plus que les génies du lo- 
giciel, y a Borland qui monte à 
la tête. Bref, nous autres fran- 
çais, face au péril étranger, 
nous avons sorti: l'Hector 
(avec un Forth en ROM, les 
étrangers n’y avaient pas pen- 
sé, quels crétins ces étrangers 
tout de mêèmel), l'EXL d'Exelvi- 
sion (c'était pas de la faute 
aux français si les étrangers 
avaient inventé les télévisieurs 
à télécommandel), l'Alice (flop 
flop}, la gamme TO et MO de 
chez Thomson (j'arrête, je vais 
vomir), le Squale (une belle 
machine blanche et bleue), et, 
j'ai gardé la meilleure pour la 
bonne bouche, le Téléstrat. 
Ca, c'était de la bécane, un 
-vrai bijou, mais que veux-tu, 
Fabrice, les français, ils aiment 
avoir des martyrs, et ils t'ont 
sacrifié sur l'autel de l'incom- 
préhension. 


set $=LEFTS (mods, INSTR (mods, *."))+"SET" 


L fréquence Nu 
Fnoœbre de samples 

| noms des samples 
PRINT H," “+LEFTS (avr nane$ 114) ,4)+* “+CHRS (0) : 





REM 


REM FFITTILILLELSEL)..,.)1) 


REX * headers et samples * 
AE lETLIELIELELLEELELELEE) 


REX 


Êêcree header{i$] 


PRINT *“Echantillon ; 
SEEK #1,L0C (#1) -8 
PRINT #1,MKLS (=1}; 
PRINT #1,MKI$ {length {i#) ) :MKIS (0) ; 
FCR 3-0 TO lengthk{it)-1 

POKE VARETR (avr (LE) ) +4, PEEK (VARETR (avrs 


(i4)) #34) -128 
NEXT jt 


BPUT #1, VARPTR (avr$(i4)), length#{i#) 


NEXT i4 
RETURN 


PROCEDURE cree header {1} 


REM 


REM [TATATIIIT111111ILELELELEEELELLLELEEE 


REM # création de header de fichier AVR * 
REN PTTTILILITIES IL III LLLILLLELELE LL), 


REM 
PRINT #1,"2BIT"; 


PRINT 41,avr names (it) +STRINGS (8-LEN (avr names 


fi#)},0); 
PRINT #1,MKIS (0): 
PRINT #1,MKIS (8); 
PRINT #1,HK1$(=1]; 


1F repeat_length+ (14) <ff8/1000 


ropeat# (i4}=0 


repeat_Length${i$)=length#(14} 
PRINT #1,MKIS (0) : 


ELSE 


PRINT #1,MK1$(-1); 


ENDIF 
PRINT #1,MK1$ (1): 
PRINT 41,CHR$ (3); 


LE CIEL PEUT BIEN M'AT- 
TENDRE 


Pour parler de tout ça, on avait 
plein de journaux, avec Un es- 
prit pionnier que ceux d'au- 
jourd'hui sont bien loin de ré- 
incarner, aujourd'hui on ne 
pense qu'au fric, on crée des 
pin's, on oublie le principal, 
tout fout le camp. Vous aviez 
MICRO7, HEBDOGICIEL., LIST, 
POKEY, L'ORDINATEUR INDI- 
VIDUEL, MICRO SYSTEMES, 
TILT, SVM, MICRO V.O... Et je 
vous passe tous les dédiés 
(“dédiés à une machine ou à 
un standard"), ça fourmillait. 
Par ailleurs, il y avait.des émis- 
sions à la télé, le grand gourou 
informatique étant Georges 
Leclerc, qui tentait de vulgari- 
ser un domaine dont personne 
n'avait rien à battre, ça faisait 
de ces bides à la télé, une hor- 
reur. Ne rigolez pas, il y avait 
même des émissions sur les 
radios libres, les animateurs 
relisaient la presse et diffu- 
saient des programmes à l'an- 
tenne, on pouvait les enregistrer 
sur cassette, ça marchait une 
fois sur cent. 


PRINT 41,5TRINGS (222=10C (#1), 0}; 


FOR i$=0 TO nb saxplet 


PRINT #1,CHRS (0) :MKIS (EF); 
PRINT #1,MKL$S (Length#${if) |: 
PRINT #1,MKLS (repeat4(18%}); 
PRINT #i,MKLS (repeat_length+({it)): llong. boucle 
PRINT #1, STRINGS (26,0) ; £ 


_ RIM ** Attention ci-dessous ‘Dre de F 
REM #* La chaine qui doit étre de 64 octets ** 
PRINT #),“Les deux sciés de l'écran” ;SPACES (39) : 

RETURX 









";avr_name$ (15) 


léchantillons mono 
lcodés sur 8 bits 
signés 

pas de repeat 


ldonc pas boucle 
sinon boucle 


lcorresp. MIDI: inconnue 
lfréa sous Replay: 16168 


long. en octets 
début de boucle 


lrés 


JE VEUX RETROUVER 
L'INNOCENCE 


Voilà, on a fait à peu près le 
tour, j'ai volontairement oublié 
de parler de quelques ma- 
chines, tant pis. Il est temps 
de conclure. Tout cet article 
remarquablement bien cons- 
truit, avec des exemples parti- 
culièrement bien choisis st un 
fil conducteur passionnant, 
c'était uniquement pour parler 
d'anciennes machines, vous 
voyez? Je veux dire, il ne faut 
pas chercher de message, il 
n'y en a pas, c'était juste his- 
toire de causer. À la rigueur, 
c'était peut-être pour éviter 
d'avoir à parler de l'avenir de 
la micro, du ST, ét d'autres 
trucs aussi barbants, ok, j'ad- 
mets, si ça peut vous faire 
plaisir. Ciao, et que les Dieux 
vous protègent. 








A 








VEILLEUR 


PAUSES , C'EST AUTANT 
QUE Tu VEUX 


Un programme très court qui va se char- 
ger d'éteindre l'écran au bout de deux 
minutes d'inactivité. 





Simon DE GIVRY 


Shhthhhtdt then nent tt tata tit taata hd dd annee 
0 






RALELESEE EE EEEEEE EE EEE TETE TETE SES EEE SE STE RCE TES EEISIT III 11111211. 
‘ 


: programme VEILLEUSE (extinction de l'ecran au bout de n æinutes) liste reg vol req d0-16/a0 
;: auteur Simon de Givry 
ALLELEPEEEEETTEETEPEEPEPEE EEE NON P PTT TT vbl couleurs snotre routine vb] d’extincLion 












rove , | compteur vb] (pe) ,47 
minutes equ 2 :delai de n minutes allume ecran 
tst.u allure ecran eteint ? 
section text \ bne.s eteint ecran 
w \ test. d7 scompteur iniciallse ? 
debut NS TS bne.s fin vbl :pas d'incrémentat ion 
move .l sp,a5 AA à rovem, | couleurs (pc), listé reg vbl 
move .l 44a5},e5 :25=base page EAU rovem. 1 liste-reg vbl,Sf{F8240.u ;allume l'ecran 
move .1 $cta5}, dû :distaille text u à FOVE .w +-1,allure ecran allumé 
add.1 $14 (25) , dû ; +ttaille data bra.s incremente 
add.1 $ic{a5) ,@ : taille bss eteint_ ecran 
ada.l +256, d0 + +base page ce.1 hertz,d7 scompteur > hertz ? 
move. ] d0,taille pr ;sauve La taille pro blo.s incremente 
move. ] S£ff#8240.w,liste reg vb] 
cir.l — (sp) rovem. l liste reg vbl,couleurs  ;sauve Les couleurs 
move .n 1520, -{sp) roven. ] cteint (pc),liste reg vbl 
Lrap # ; superviseur movem. | liste reg vbl,$fÉ(E8240.4 ;eteint l'ecran 
adäg.l #6,sp 
clr.w allure ecran etelnt 
rove.l dû,save ssp  ;sauve pile ssp bra.s Fin vbl ;pas d'incremantation 
rove .w sr,save Sr ;sauve sx incremente 
move .w #$2700, sr ‘bloque interruptions addq 1 #l,copteur vol 
fin vbl 
roveg.] 18, idi=frequence -> J0hz .. Its 
move, l #vbl_ monochrome, 22 
move , 1 Inew clavier mono, a PRRRELELEEELELESEESEESEEEEES TETE TEE EEE EE ENE EEE EECETE TT TETE TITI TT. 
move .b S££EE0260 .u, d0 ;dü=resolutien 
and ,b +611,d0 vb1_monochrome notre routine vw] 
cp.b #110,d0 sest-on en 70Hz ? d'excinction 
beg.s £req move. l compteur. vb] (pe) ,47 
rove.l fvbl_ couleurs, a2 crp.] hertz, d7 jooepteur > hértz ? 
move.l înew clavier colo,a3 ble.s incremente2 
roveg. #4, dl 7 ;60nz move .W sr,save sx vbl 
rove.b SÉÉFFS20a.w,60 ;dî=mde de synchro MOVE .W #$2700,sr bloque les interruptions 
and.b #410,40 lea SELEF8200 .w,a0 ;a0=base reg video 
tst.b d0 test-on en 60Hz ? cir.l dl 
beg.s [reg mOvep .W Ja0},di 
roveg,l #0, dl :50hz 151.1 #8,d] sdl=debut adr. ecran 
Êreq rovep, l 3(20),d0 
lea frequence {pc} , a0 ar: 4$00FFF FFE, 40 ;dl=conpteur video 
move .l (a0,d1.w),hertz omp:1 d0,d1 
tinitialise hertz bne.s restaure sr 
tst.b SCC F8209.w sau debut de l'ecran ? . 
Dir} Compteur _vbl initialise le conptour de Vel bne.s restaure sr 
move .W t-1,allure écran allumé bset.b #0, S££E£E20aw serein l'ecran 
cir.w allume secran éteint 
move .]l $118,ancien clavier restaure #r 
rove.]l a3, 5118 détourne clavier move .M save sr Vbl,sr ;restaure le sr 
bra,s £in vb12 
move.l :  $456:w,a0 :a0 pointeur sur adresses VaLs incremente2 
lea 4{a0),a0 ssaute le pointeur GEM addq.! #1, compteur vol 
move .W 5454 .w, d0 inbre max de VBLs fin vb12 
subg.w #2,a0 pour Le dbra .. et le ptr GEN ts 
recherche 
tst.l {a0) + HRELELESEEEELEEELELEEE TELE), ZT,), TT TNENEEEEEIIIIIII111111111 
beq.s trouve 
dbra d0, recherche section data 
trouve REMARQUE : si pas de place alors ecrase derniere VäL 
move .l a2,-(a0) sinstalle notre routine vbl frequence 
move .M save _$r, Sr restaure interruptions de.] 50*60*minutes délai d'effacement 504z 
&.1 60*60*minutes ;délai d'effacement 60Hz 
move.l save ssp,-{22) d.1 T1*60#minutes :;délai d'effacement 70hz 
7ove.w #$20,-15p) 
trap #1 utilisateur cteint ;permet d'annuler les 16 couleurs 
addq.1 16,52 de.u (H 
dc.w 0 
rave .w #0,-(sp) de.w 0 
rove.l taille prg,-{sp) de.w û 
ROVE .K 1$31,-{5p) de.” 0 
trap 41 keep process do.w ü 
‘bye bye dc.w t 
RRELELEEELEZTESS SE EE EEE EE TENTE TPS T SES TT SEE SEE ET ITT III TITI TITI ITU éc.u 0 ITAIRE ECRAN 
new clavier colo appel midikey puis lancæ new clavier ral € UTIL é olutions 
7” olr.i compteur vbl :reinitialise le comteur VEL CE ÿ Toutes Rés 
move. | ancien clavier(pc},-(sp) :appel de midikey GE 4 0 
rts ‘ dc.u 0 
PASSERELLE LEEEEEEEEE TE EETT SET TE ES EEE EEE PETITES IITSTI TITI I. dc. 2 
dc.w 0 
new clavier mono appel midikey puis lance neu clavier deu ; 
clr.1 compteur _vbl :reéinitialise le compteur VBL dou 0 
Lst.w allume ecran eteint 2? . 
bne.s œntinue RER EEELEEEEEEEEEEEE TEE ENT TENEEPENTETPENTETT TT PTT TTTIIII SL 
rovem, l d0/dl/a0,-(sp} :sauve registres dans pile $ 
lea $ÉEEE8200 .w,a0 :aûzbase reg video section bss 
cir.l al 
movep ur 1 (a0), dl compteur vbl  ds.] l scompteur VBL 
1s1.1 18,d! séledebut adr. ocran ancien clavier ds.1l 1 :sauvegarde de la routine 
attends sattends debut affichage ecran .. clavier du 70S ï etre 
rovep.1 3(20) ,60 hertz ds.1 1 idélai avant extinction 
and. ISOOFEEEEE, d0  sdl=conpteur video ste A Lee À jhboléen mur fiat de L'écean 
cp.1 dû, dl ; 1 : allumé , Q : éteint 
bné:s attends sève _ssp ds.1 1 “sauvegarde pile superviseur 
Est:b $f$ff8209.« save st ds.w 1 sauvegarde du reg. sr 
bne:s attends taille prg ds.1 1 : sauvegarde taille du prg 
belr.b 10, SÉEEE820a.w ‘allume ecran couleurs ds.w 16 : sauvegarde des couleurs 
MEN 1-1,a1lure imise à jour de allure save st vbl ds. 1 sauvegarde du reg. sr ds vbl 
move. | (sp}+,d0/d1/a0 ;restaure registres de la pile 
continue 
rove. l ancien élavier(pc},-1sp) :appel de midikey 
Its 









eddy tôt 


S'il y en a un qui s'est fait avoir en 
beauté, c'est bibi. Je vous ex- 
plique, ça vaut le coup : pour moi, 
la superstition, les réincarnations, 
c'est salades et compagnie. Les 
guéridons qui s'envolent, les types 
qui font parier les morts ou qui tor- 
dent les cuillers à distance, ce sont 
des histoires pour drogués ou pour 
vieilles folles, ni plus ni moins. 
L'exemple le plus fort pour rire de 
ces débiles profonds, c'est la Malé- 
diction des Pyramides, ça c'était 
fort. Tu rentres dans une pyramide, 
paf, tu meurs raide quelques mois 
après, par la volonté divine d'un 
Pharaon squeezé 4000 ans aupara- 
vant, bravo, j'applaudis, ah, ah, 
faites m'en d'autres comme celle- 
là! Eh bé ces cons-là, ils seraient 
capables de me faire peur, avec 
leurs histoires de malédiction. 
C'est dingue, depuis que nous 
avons parlé de ce hors-série sauce 
Hebdogiciel, tout se casse la gueu- 
le, D'abord, notre chef PAO se bar- 
re en vacances en laissant tous les 
MAC de la boite avec des claviers 
danois, sa langue natale, Le da- 
nois, c'est bourré de à, de À, c'est 
hyper pratique pour les listings, un 
vral bonheur. Ensuite, les disques 
durs du serveur choisissant de 
fondre au soleil, il faut dépanner, 
Là-dessus, les maquettistes s'en 
vont l'un après l'autre, if faut tout 
faire soi-même pendant qu'ils écou- 
tent du rock, les doigts de pled en 
éventail. Pour finir, pas moyen de 
mettre la main sur un directeur de 
la publication pour censurer ce qui 
est écrit, il est malade à mourir. 
J'ai fini ce canard, je pars en Egyp- 
te, laissez-moi vos messages sur 
3615 DIVINITEL Ciao. 

Mic Däx 











(de) 





DESORMAIS, JE 


NE Vois PLUS QUELLE 
TUILE POURRAIT 
ENCORE NOUS 
TOMBER DESSUS... 





HOT DOG 


C'est malin, vous. vous êtes laissé prendre et vous voilà enfer- 
mé dans un labyrinthe. Vous ne pouviez pas vous tenir tran- 
quille, non? Bon, voici une mitraillette, débarrassez-vous des 
monstres enragés et sortez-vous de là, je vous attends dehors. 


Antoine LECLERQ et Pierre-Olivier ROTHEVAL 


1 rem KARRARARRRA H [e) T D [e] G lit RÉRRRRRRRRRÉÉ 

2 rem * (C) 1991 ST MAGAZINE ET : 

3 rem * A. LECLERCQ 

4 rem * P. ROTHEVAL 

5 rem ** Initialisations : variables etc... ** 

6 : dim SAL(5,5,5) : gosub 50000 : load “a:medor .mbs" 


1 : mode 0 : key off : curs off : get palette (5) 

8 dim ACT(16),VIE(12,2),VIE2 (8,2) 

9 show : pen 9 : gosub 40300 : gosub 40800 : A$=file select$ 
("*.DAT", "Chargement de carte 2“) : hide : if A$="” then gosub 
20400 else gosub 41700 

10 for C=0 to 15 : colour C,0 : next C : hide on 

20 pen 8 : locate 0,0 : centre “Par A. Leclercq & P. Rotheval” 
: print : print : centre “(C) ST MAGAZINE & les auteurs 1991" : 
X$=screen$ (back,0,0 to 319,50) 

30 M$="HOT DOG!" : XX=0 : YY=0 : gosub 20200 : screen$ (physic, 
0,160)=X$ : gosub 40000 : music off 

35 LVL=5 : SCR=0 : X=1 : Y=1 : PV=8 : NV=5 : gosub 20500 : 
XSPR=100 : NSPR=20 : sprite 2,500,0,1 : music 2 

39 sprite 1,XSPR,85,NSPR : wait vbl : set zone 1,140,80 to 
160, 100 


40 rem PTTITIILIILLII LILI LLLILILLLILILILLLELLELLL ELLE LL) LE;;;,;;;;) 


41 rem KRARRRRRARÉ CORPS DU PROGRAMME RARRARRRRRRÉRRÉRARÉRRARARR 
42 rem RÉRRRRRRÉRRRARRRRRRRARRRRÉÉRRRRARRRÉRRRRÉARRRÉRRRRÉRRÉRÉÉ RÉ 
50 if jleft then gosub 10550 

60 if jright then gosub 10500 

10 if joy=0 then gosub 10580 

80 if fire then gosub 10620 

90 if zone{1)<>0 and abs(CHLVL)=1 and peek ($FFFFCO2)=$39 then 
LVL=LVL4CHLVL : gosub 20500 : XSPR=160 : NSPR=-20 : goto 39 

100 if jdown then gosub 10740 

110 if jup then gosub 10770 

111 rem *****% Sortie ou non à droite ? 

112 rem 

115 if x sprite(1)>270 and ES-false then XSPR-20 : NSPR-20 : 
inc X : gosub 20500 : goto 39 

120 if x sprite(1}>270 and ES=true then XSPR=x sprite(l)-3 : 
NSPR=20 : goto 39 

130 if x sprite{1)<20 and OU=false then XSPR-265 : NSPR=43 : 
dec X : gosub 20500 : goto 39 

135 rem ***#** Sortie ou non à gauche ? 

136 rem 

140 if x sprite{1)<20 and OU=true then XSPR=x sprite(1)+3 : 
NSPR=43 : goto 39 

145 rem ***** Sortie en HAUT et en BAS 

146 rem 

160 if zone{1)=1 and DY=-1 and NO-false then XSPR-150 : NSPR=20 
: DX=1 : dec Y : gosub 20500 : goto 39 

170 if zone({1)=1 and DY=1 and SU=false then XSPR-150 : NSPR=20 
: DX=1 : inc Y : gosub 20500 : goto 39 

175 rem ***#** Tests de collision entre heros et robot 

180 if x sprite(3)>x sprite(l) and x sprite{3)-x sprite{1)<35 
and SPR2 then boom : gosub 41000 

190 if x sprite(3)<x sprite(l) and x sprite{1)-x sprite(3)<35 
and SPR2 then boom : ink 0 : gosub 41000 

195 rem ***#t Tests de collision entre robot et balle 

200 if x sprite(3)>x sprite(2) and x sprite(3)-x sprite(2)<35 
and SPR2 then gosub 40200 : gosub 20300 

210 if x sprite(3)<x sprite(2) and x sprite(2)-x sprite(3)<35 
and SPR2 then gosub 40200 : gosub 20300 

215 rem **#** Tests de collision entre Sprite et Goodies 

220 if XG-x sprite(1)<32 and x sprite(1)<XG then gosub 40500 
230 if inkey$="P" or inkey$="p" then clear key move freeze 1 : 
move freeze 2 : move freeze 3 : anim freeze 1 : anim freeze 2 : 
anim freeze 3 : repeat : until inkey$="p” or inkey$="P" : anim 
on 1 : anim on 2 : anim on 3 : move on 1 : move on 2 : move on 3 
10499 goto 40 

10500 rem KRARRARRRE ME RIGHT RARRARRRARRÉRARERE 

10510 if timer<32 then return 

10520 if DX©1 then DX=1 : DY=0 : anim 1,"(14,6) (15,6) (16,6) (17, 
6) (18,6) (19,6)L" : move x 1,"(1,1,100)L" : anim on 1 : move on 1 
10530 return 

10540 rem LES LTEELES MOVE LEFT RRARRRRRERÉRRRERÉÉE 

10550 if timer<32 then return 

10560 if DXC>-1 then DX=-1 : MVT=1 : DY=0 : anim 1,"(5,6) (6,6) 
(7,6) (8,6) (9,6) (10,6)L" : move x 1,”(1,-1,100)L" : anim on 1 : 
move on 1 

10570 return 

10580 rem RRRARRRARÉ STOP RRRRÉRRRRAARÉRARRXE 

10590 if DX=1 then MVI=1 : move off 1 : anim off 1 : anim 
1,"(21,5) (20,2)" : animon 1 : DX=0 

10600 if DX=-1 then MVI=-1 : move off 1 : anim off 1 : anim 
1,"(44,5) (43,2)" : anim on 1 : DX=0 

10610 return 

10620 rem LELLLELELEL:S FIRE RÉRARARRRRRRARARAX 

10630 if timer<32 then return 

10640 if DX=1 or DX=-1 then gosub 10580 

10650 if MVT=1 then timer=0 : DX=0 : anim 1,"(47,4) (48,4) (49,4) 
(50,4) (51,4) (52,4) (53,4) (54,4)" : anim on 1 : move off 2 : 
sprite 2,x sprite(1)+40,106,75 : move x 2,”(1, 4,320)" : move on 2 
10660 if MVT=-1 then timer=0 : DX=0 : anim 1,"(67,4) (68,4) (69, 
4) (70,4) (71,4) (72,4) (73,4) (74,4)" : anim on 1 : move off 2 : 
sprite 2,x sprite(1),106,75 : move x 2,"(1,-4,320)" : move on 2 
10670 return 

10680 rem RARRÉRARRX TIRE À GENOU RARARARRRRARRARÉARX 

10690 if timer<32 then return 

10700 if DX=1 or DX=-1 then gosub 10580 

10710 if MVT=1 then timer=14 : DX=0 : anim 1,”(22,4) (23,10) (20, 
4)" : anim on 1 : sprite 2,x sprite(1)+40,95,75 : move x A 
“(1,3,320)" : move y 2,"(1,-3,200}" : move on 2 

10720 if MVT=-] then timer=14 : DX=0 : anim 1,” (45,4) (46,10) 
(43,4)" : anim on 1 : sprite 2,x sprite(1},95,75 : move x 2; 
“(1,-3,320)" : move y 2,"(1,-3,200)" : move on 2 

10730 return 

10740 rem RRARRREREX DOWN RARRRRRÉRERÉRRAR 

10750 if DY©1 then gosub 10580 : anim 1,"(55,5) (56,5) ( 57,5) 
(58,5) (59,5) (60,5)" : anim on 1 : DY=1 

10760 return 

10770 rem KARARARRRE UP RAARRERRRRRÉARARER 

10780 if DY>-1 then gosub 10580 : anim 1,"(61,5) (61,5) (63,5) 
(64,5):(65,5) (66,5) : anim on 1 : DY=-1 








ES 
i = 
HU 


10790 return 

11000 rem ** Page de Présentation ** 

20200 rem ** Procédure d'affichage de page zoomée ** 

20202 rem ** m$ = texte , xx, yy ** 

20205 erase 6 : reserve as screen 6 : cls 6 : zoom 5,15,150,49, 
189 to 6,60,0,260,199 

20210 els physic : cls back : for C=0 to 15 : colour C,0 : next C 
20220 locate 0,0 : pen 4 : paper 0 : print M$ 

20230 zoom back, 0,0, len(M$)*8+1,9 to physic,0,0,319,60 : TXT$= 
screens (physic,0,0 to 320,60) 

20240 screen copy 6 to physic : screen$ (physic, XX, YY)=TXTS : 
screen copy physic to back : 

20250 get palette (6) 

20270 return 

20300 rem ** Affichage du score ** 

20310 locate 27,21 : paper 0 : pen 1 : print * “ : locate 
27,21 : paper 0 : pen 14 : print “SC:"+str$ (SCR) 

20320 locate 0,0 

20330 wait vbl : return 

20400 rem ** Codage des salles ** 

20410 restore 30010 

20415 for LVL=5 to 1 step-1l 
20420 for Y=1 to 5 

20430 : for X=1 to 5 

20440 .: : read SAL(LVL,X, Y) 
20450 : next X 

20460 next Y 

20465 next LVL 

20470 return 

20500 rem ** Décodage des salles ** 

20501 for I=1 to 15 : doke $FFFF8240+1*2,0 : next I 

20502 restore 31000 : for C=1 to 16 : read ACT(C) : next C : 
SPR2=false 

20503 if X=1 and LVL=1 and Y=1 then music 7 : M$="GAGNE !" : 
XX=0 : YY=2 : gosub 20200 : music 7 : clear key : wait key : 
cils back : appear back, 60 : end 

20520 sprite off 3 : sprite off 1 : screen copy 5 to back : 
screen copy 5 to physic : gosub 20300 

20521 locate 14,23 : print str$(X)-" "+"-"+#str$(Y)-" * : home : 
NO-false : ES=false : OU=false : SU=false : DY=0 : N-0 : KIND=0 : 
CHLVI-0 

20522 for C=9 to 11 , 

20523 if btst(C,SAL(LVL,X,Y)) then N=N+2* (C-8) 

20524 next C : gosub 40400 : PL=N*10 

20525 ink 0 : bar 140,139 to 180,141 

20526 ink 1 : box 140,60 to 180,122 

20530 : : for C=0 to 15 







JEU 





20540 : : : if btst(C,SAL(LVL,X, Y))=false and ACT(C+#1) >0 
then gosub ACT(C+1) 
20550 : : next C 


20555 gosub 40900 : gosub 41500 : get palette (5) 

20560 return 

21000 rem PORTE EN BAS 

21010 ink 2 : bar 140,139 to 180,141 

21020 SU=true : return 

21030 rem PORTE EN HAUT 

21040 ink 1 : bar 140,60 to 180,122 

21050 NO=true : return 

21060 rem PORTE À DROITE 

21070 ink 2 : polygon 300,60 to 313,58 to 313,132 to 300,125 
21080 ES=true : return 

21090 rem PORTE À GAUCHE ——— 

21100 ink 2 : polygon 18,60 to 6,58 to 6,132 to 18,127 

21110 OU=true : return 

21200 rem—————— PIEUVRE 

21210 sprite 3,260,110,1 

21220 move x 3,”(1,-1,230) (1,1,230)L* : move y 3,”(2,-1,10) (2, 
1,10}L* : move on 3 

21230 anim 3,"(1,5) (2,5) (3,5) (4,5)L" : anim on 3 

21240 SPR2=true : return 

21250 rem—— BULLDOG =—— 

21260 sprite 3,260,100,11 : wait vbl 

21270 move off 3 : move x 3,”{1,-1,230) (1,1,230)L" : move on 3 
21280 anim 3," (11,5) (12,5) (13,5)L" : anim on 3 

21290 SPR2=true : return 

21300 rem———— DROID 

21310 sprite 3,240,75,87 

21320 move x 3,"(1,-1,210) (1,1,210)L" : move on 3 

21330 anim 3," (87,5) (88,5) (89, 5) (90,5) (91,5) (92,5) (93,5) (94,5) 
(95,5) (96, 5) (97,5) (98,5) (99,5) (100,5) (101,5)L" : anim on 3 
21340 SPR2=true : return 

21400 rem EXTRA LIFE 

21410 XG=rnd (250) +30 

21415 XX=(XG/16) *16-16 : get palette (5) : cis 6 : screen copy 
back, XX,115,XX+48,131 to 6,XX, 115 
21420 ink 5 : KIND=3 

21430 earc XG,120,3,4,0,3600 
21440 draw XG,123 to XG,128 
21450 draw XG-2,125 to XG+2,125 
21460 return 

21470 rem FORCE 

21480 XG=rnd(250)+30 : KIND=1 
21485 XX=(XG/16) *16-16 : get palette (5) : cls 6 : screen copy 
back, XX,115,XX+48,131 to 6,XX, 115 

21490 ink 14 polygon XG,123 to XG+3,130 to XG-3, 130 

21500 ink 11 polygon XG,123 to XG+3,130 to XG+1, 128 

21510 return 

21520 rem SOFT FORCE 

21530 XG=rnd(250)+30 : KIND=2 

21535 XX=(XG/16) *16-16 : get palette (5) : cls 6 : screen copy 
back, XX,115,XX+48,131 to 6,XX, 115 

21540 ink 13 : bar XG-3,124 to XG6+3,130 

21550 ink 15 : polygon XG-3,124 to XG+3,124 to XG+6,122 to XG- 
1,122 

21560 ink 12 : polygon X6+3,130 to XG+3,124 to XG+6,122 to XG+6 
128 

21570 return 

30000 rem ** Datas du labyrinthe ** 

30010 data 29626,29555,21241,29168,29168 

30011 data 29172,29168,29180,29168,29168 

30012 data 29168,29168,29180,29178,20985 



























Basse Résolution 











30013 data 29168,29168,15798,29173,25085 

30014 data 29168,29168,29168,29154,29173 

30015 data 29168,29168,29168,29168,29168 

30016 data 29168,29168,29168,29168, 29168 

30017 data 29168,29168,29168,29168,29160 

30018 data 29168,29168,29168,29168,29180 

30019 data 29168,29168,29168,29138,22901 

30020 data 29168,29168,29168,29168,29168 

30021 data 29168,29168,29168,29168,29176 

30022 data 29168,29178,29427,22259,29141 

30023 data 29168,14780,29168,29168,29168 

30024 data 29168,29156,29168,29168,29168 

30025 data 29168,29168,29168,29168,29168 

30026 data 29168,29168,26554,29153,29168 

30027 data 29168,29168,16316,29168,29168 

30028 data 29168,29178,29175,29177,29168 

30029 data 29170,21719,29171,29173,29168 

30030 data 29170,29179,12785,29178, 14585 

30031 data 29168,32700,29168,29140, 30076 

30032 data 29170,29183,29171,29171,29173 

30033 data 29168,29172,29168,29168,29168 

30034 data 29168,29168,29168,29168, 29168 

30999 rem ** No de lignes selon les portes/méchants/goodies ** 
31000 data 21090,21060,21030,21000, 41100, 41200,21300,21200, 
21250,0,0,0,21470,21520,21400,0 

40000 rem *****kkkk4xxk INTRO **XAXAKRRAKEX 

40010 erase 7 : reserve as screen 7 : cls 7 : logic-7 : def 
scroll 1,20,179 to 320,191,-2,0 : Y=190 : LT=1 : S=1 : ST=-1 
40030 TEXT$="ET VOICI H OT DOG UN JEU PROGRAMME EN STOS 
PAR ANTOINE LECLERCO (MADMOD) ET P.O ROTHEVAL (PIERROT) EN 24 
HEURES CHRONO (ET OUI MIC , ON Y EST ARRIVE!!!)... VEUILLEZ 
TOUT D'ABORD LANCER PREPAR.BAS AVANT DE POUVOIR JOUER ... (C) 
ST MAGAZINE / LES AUTEURS 1991 ... MAY THE STOS BE WITH YOU !!!" 
40035 TEXTS=TEXT$+" LE PRINCIPE EST SIMPLE : UTILISEZ VOTRE 
MITRAILLEUSE POUR RECTIFIER LES DROIDS ET COLLECTEZ LES GOODIES 
... ATTENTION , LES PORTES S'OUVRENT ET SE FERMENT AU HASARD ET 
VOUS N'AVEZ QUE 3 VIES POUR PARVENIR AU NIVEAU 1 . PRESSEZ 
ESPACE POUR MONTER OU DESCENDRE QUAND C'EST POSSIBLE (OVALE 
ENTOURANT UNE FLECHE, SUR LE SOL) . LESGOODIES PEUVENT AUGMEN- 
TER VOS POINTS DE VIE (CUBES ROSES) , LES METTRE AU MAXIMUM 
(CONES JAUNES) ET VOUS DONNER UNE VIE EN PLUS (PAQUERETTE) . 
BONNE CHANCE !111" 

40040 L=len(TEXT$) 

40045 music 4 

40050 for 1=1 to L : A$=mid$ (TEXTS, 1,1) 

40070 if peek(S$FFFFFC02)=57 then 40110 

40080 locate 0,1 : print A$ 

40090 for G-0 to 8 : screen copy 7,6,7,G+16,16 to logic,319, 180 
: wait vbl : screen copy logic, 16,180,310,190 to physic,20,Y : 
scroll 1 

40100 next G : next I : goto 40050 

40110 logic-default logic : erase 7 : fade 3 : wait vbl : wait 
vbl : wait vbl : physic-default physic : back=default back : 
returm 

40200 rem XKRRAXARÉERXX TOUCHE MECHANT PATES LILELLL LL) 

40201 if N<=0 then 40220 

40202 if N>12 then N=12 

40205 ink 0 : paint VIE(N,1),VIE(N,2) : A=SAL(LVL,X, Y) 

40210 dec N 

40220 if N<=0 then sprite off 3 : SPR2=0 : boom : A=SAL(LVL,X, 
Y) : bclr 9,A : belr 10,A : bcir 11,A : bset 6,A : bset 7,A : 
bset 8,A : SAL(LVL, X, Y)=A 

40230 move off 2 : sprite 2,500,0 : wait vbl : boom : SCR-SCR#PL 
40240 return 

40300 rem ****#*k#kxkx INIT TABLEAU DE VIE MECHANT 
RRRRARARARRRÉERE 

40310 restore 40350 

40320 for 1=1 to 12 

40330 : read VIE(I,1),VIE(I,2) 

40340 next I : retum 

40350 data 183,183,198,183,183,177,198,177,183,172,198,172, 
183,166,198,166, 183,160, 198,160,183,154, 198,154 

40400 rem CELLEEL ES) INSTAL VIE MECHANT RARARRRRERRÉRÉARERAREÉ 
40405 if N=-0 or N>12 then 40440 

40410 ink 12 : for I=l to N 

40420 : paint VIE(I,1),VIE(I,2) 

40430 next I 

40440 return 

40500 rem RRARERÉARE TAKE GO00DY RARRARRRRRRRE RER ER ERR ER ÉR 
40505 XX=(XG/16) *16-16 

40510 screen copy 6,XX,115,XX+48,131 to back, XX, 115 

40520 if KIND=1 then PV=8 

40530 if KIND=2 and PV<8 then inc PV : gosub 40900 

40540 if KIND=3 and NV<5 then inc NV : ink 4 : bar 293,5 to 
293+NV*4,7 

40550 A=SAL(LVL,X,Y) : bset (11#KIND),A : SAL(LVL, X,Y)=A : 
retum 

40600 rem ***#***** TU PERDS DES POINTS DE VIE MON POTE ! *** 
40610 if PV=0 then dec NV : PV=8 : gosub 40900 : gosub 41500 
40620 if NV<=0 then goto 40700 

40630 return 

40700 rem CEST TELLEE) GAME OVER CEPFELELE) 

40710 XX=0 : YY=0 : M$="GAME OVER!" : gosub 20200 : pop : wait 
key : goto 9 

40800 rem ******#*#4+* INIT TABLEAU DE VIDE GENTIL #*##4#44 
40805 restore 40850 

40810 for I=1 to 8 

40820 : read VIE2(1,1),VIEZ2(1,2) 

40830 next I 

40840 return 

40850 data 71,179,89,179,71,171,89,171,71,165,89,165,71,159,89, 159 
40900 rem ****#** INSTALLE TABLEAU DE VIE GENTIL ****#4 

40910 for I=1 to PV 

40920 : ink 8 : paint VIE2(1,1),VIE2(1,2) 

40930 next LI : if PV=8 then 40940 

40931 for I=PV+1 to 8 

40932 : ink 0 : paint VIE2(1,1),VIE2 (1,2) 

40933 next I 


suite en page 5 





STOS BASIC 


HOT DOG 


Il faut encore taper tout ça, et ce n'est pas fini : vous 
allez devoir taper le second listing, qui sert à préparer 
les banques comme il faut pour que tout marche 


de [I 


AT @@ vo. 


bien-bien. Courage. 


suite de la page 4 


40940 return 

41000 rem RAARARRRRRAR TOUCHE GENTIL RRRARRARRRÉÉE 

41010 ink 0 : auto back off : paint VIE2(PV,1),VIE2{PV,2) : 
auto back on 

41020 dec PV : gosub 40900 





51370 next Y : next X 

51380 if mouse key=0 then 51380 

51390 locate 1,19 : print * * 
51400 T=zone (0) 

51410 if T=0 then goto 51330 





“non” : gosub 51820 

52000 U=0 : T=0 : goto 51450 

52010 rem ****#*#*#*# transforme en binaire ****#*44 
52020 OLDLVL=LVL : for LVL=5 to 1 step-1 

52030 : for S=1 to 25 


41022 if PV<=0 then dec NV : PV=8 : gosub 40900 : gosub 41500 51420 locate 20,0 : print CO(T, 1),CO(T, 2) 52040 : A0 

41025 rem if MVT=1 then sprite 1,x sprite(1}-5,85 51430 pen 1 : for I=1 to 15 : locate 33,1+1 : print 52050 : : if A$(LVL,S,1)="non" then bclr 0,A else 

41026 rem if MVT=-1 then sprite 1,x sprite(1)+5,85 A$(LVL,T,I) : next I bset 0,A 

41030 return 51440 for I=1 to 17 : set zone 1,33*8,1*8+8 to 52060 : : if AS(LVL,S,2)="non" then bclr 1,A else 

41100 rem LERLELES LEE Vers le haut RARARRRARRKRX 33*8+8*4, I*8+16 : next I bset 1,A 

41110 ink 6 : earc 160,130,15,5,0,3600 : draw 160,133 to 51450 if mouse key=2 then pen 1 : goto 51310 52070 : : if A$(LVL,S,3)="non" then bclr 2,A else 

160,130 : polyline 157,130 to 163,130 to 160,127 to 157,130 51460 if mouse key<>1 then goto 51450 bset 2,A 

41120 CHLVL=-1 : return 51470 C=point (x mouse, y mouse) : if C=10 or C=11 52080 : : if A$(LVL,S,4)="non" then bclr 3,A else 

41200 rem RARRRARARÉR Vers le bas RRRARRARRAX then goto 51760 bset 3,A 

41210 ink 6 : earc 160,130,15,5,0,3600 : draw 160,127 to 51480 bell : U=zone(0) : if U=0 ôr U>17 then goto 52090 : : if A$(LVL,S,5)="non" then bset 4,A else 

160,130 : polyline 157,130 to 163,130 to 160,133 to 157,130 51440 bcir 4,A 

41222 CHLVL=1 : return 51490 if U=16 then gosub 52010 : goto 51440 52100 : : if A$(LVL,S,6)="non" then bset 5,A else 

41300 rem *****#444% OUVERTURE / FERMETURE DES PORTES ##*k##k44 51495 if U=17 then return bclr 5,A 

41310 rem **#*#*#***k*t instructions #*###44kk4x4 51500 pen 2 : locate 33,U+1 : print A${(LVL,T,U) 52110 : : if AS(LVL,S,7)="non" then bset 6,A else 

41320 XX=0 : YY=160 : M$="INSTRUCTIONS" : gosub 20200 51510 F$=inkey$ bcir 6,A 

41330 wait key 51520 pen 1 : if F$="o" or F$="O" then goto 51570 52120 : : if A$(LVL,S,8)="non" then bset 1,A else 

41340 cls : mode 1 : key off : curs off : hide 51530 if U>4 then if F$="n" or F$="N" then locate bcir 7,A 

41350 windopen 1,1,1,79,11,0,3 : pen 3 33,U+1 : print “non” : A$(LVL,T,U)="non" : OK=1 52130 : : if AS(LVL,S,9)="non" then bset 8,A else 

41360 centre “HOT DOG” : print : print : print 51540 if U<=4 then 1f F$="n" or F$="N" then goto ; bcir 8,A 

41370 centre “Vous devez sortir du labyrinthe de l’infame Blounga” 51950 De 52140 : : if A$(LVL,S,10)="non" then bclr 9,A 

41380 print : centre “Pour cela , tuez robots , pieuvres et 51550 if OK©1 then goto 51510 else bset 9,A 

droids" : print 51560 OK=0 : ink 1 : goto 51450 52150 : : 1f A$(LVL,S,11)="non" then bclr 10,A 

41390 centre “Et ramassez les Goodies (extra life,points de vie...)" 51570 rem ****#+#4 test de validité #**#kkkkkt4#xk4k4 aise: beet 1852 

41400 print : centre “Parvenez au niveau 1 ou se trouve la 51580 if U=5 then shoot : if A$(LVL,T,6)="non" then 52160 : : if AS(LVL,S,12)="non" then bclr 11,A 

sortie..." locate 33,6 : print “oui” : A$(LVL,T,U)="oui" else else bset 11,A 

41410 print : centre “Utilisez le joystick pour vous déplacer” gosub 51720 52170 : : if A$S(LVL,S,13)="non" then bset 12,A 

: print 51590 if U=6 then shoot : if A$(LVL,T,5)="non" then else bclr 12,A 

Hs ne “Et espace pour monter ou descendre d’un niveau” dE à : print "oui" : A$ (LVL, T,U)="oui" else 52180 : : if AS(LVL,S, 14)="non" then bset 13,A 
wait key o: 

41440 mode 0 : key off : curs off : hide : get palette (5) 51600 1£ U=T.then shoot +1 AS (IVL,T,8)= non” and ÉREACRE . A$ (LVL S;15)2 "on" then baet 14, 


41450 pen 5 : locate ON12 : print “EXTRA LIFE : “ : XG=160 : 
gosub 21415 : wait key : return 

41500 rem *#**#*4kkxkk4x AFFICHE NOMBRE DE VIES ***#xxx 

41510 ink 0 : bar 293,5 to 314,7 : ink 9 : bar 293,5 to 
293+NV*4,7 

41520 return 

41600 rem **k*#*kkkxx CHOIX : JEU/EDITEUR/CHARGER UNE MAP *#**#4* 
41700 rem RARARRRRAX CHARGER UNE MAP LELLE TS) 


A$(LVL,T,9)="non" then locate 33,8 : print “oui” : 
A$ (LVL, T,U)="oui” else gosub 51720 

51610 if U=8 then shoot if A$(LVL,T, 7)="non" and 
A$ (LVL, T,9)="non" then locate 33,9 : print “oui” : 
A$ (LVL, T,U}="oui” else gosub 51720 

51620 if U=9 then shoot if A$(LVL,T,7}="non" and 
A$ (LVL, T,8)}="non" then locate 33,10 : print “oui” : 
A$ (LVL, T,U)="oui" else gosub 51720 


else bcilr 14,A 

52200 : SAL(LVL,CO(S,1),CO(S,2))=A 

52210 : next S 

52220 next LVL : A$=file select$ ("*.dat",”Sauver la 
carte") 

52230 open out #1,A$ 

52240 for LVL=1 to 5 

52250 : for Y=1 to 5 


41705 open in #1,A$ 51630 if U=3 and T1 and T©6 and T©11 and T©16 52260 : : for X=1to5 

41710 for LVL=5 to 1 step-1l and T©21 then pen 1 : locate 33,U+1 : print “oui” 52270 : : : print #1,SAL(LVL,X, Y) 
41720 : for Y=l to 5 : A$(LVL,T,U}="oui" : gosub 51820 52280 : : next X 

41730 : : for X=1 to 5 51640 if U=4 and TO5 and T©10 and T©15 and T<>20 52290 : next Y 

41740 : : : input #1,SAL(LVL, X,Y) then pen 1 : locate 33,U+1 : print “oui” : 52300 next LVL 

41750 : : next X A$ (LVL, T,U)="oui" : gosub 51820 52310 close #1 

41760 : next Y 


41770 next LVL 

41780 close #1 

41790 return 

50000 rem **X*KKARKRRRRRAEMARÉRREERRRÉARRRR ARE ERRRÉERLRRERLEX 
50010 rem LELELL EL: CREATEUR DES MAPS KRRRRARARRRRÉARRRRÉRÉRRÉRRE 
50020 rem RARARRARRARARERRRRARRÉRÉRARARRARÉRÉRRRÉRÉRERÉAARRALRERE 
50040 mode 0 : key off : curs off : show 

50050 windopen 1,0,0,40,12,0,3 : curs off 

50060 pen 14 

50070 home : print : print 

50080 centre “VOULEZ VOUS" : print : print : print : centre 
“CREER UN NOUVEAU JEU —— QUI" : print 

50090 centre “CHARGER UN JEU PREEXISTANT — OUI" 

50100 set zone 1,33*8,5*16 to 36*8,5*16+16 

50110 set zone 2,33*8,6*16 to 36*8,6*16+16 

50115 repeat 

50120 if zone(0)=1 and FGH@1 then locate 33,5 : pen 15 : print 
“OUI" : locate 33,6 : pen 14 : print "OUI" : FGH=1 

50125 if zone(0)=2 and FGH©2 then locate 33,6 : pen 15 : print 
“OUI" : locate 33,5 : pen 14 : print "OUI" : FGH=2 

50130 until mouse key<>0 

50140 if FGH=2 then return 

51000 mode 0 : key off : curs off : LVL-5 

51010 home : print "LEVEL :” 

51020 locate 8,0 : print LVL 

51030 ink 10 : polygon 20,180 to 30,175 to 30,185 

51040 ink 11 : polygon 40,180 to 30,175 to 30,185 

51050 dim CO(25,2),A$(5,50,20) : LVL=5 

51060 for LVL=1 to 5 : for I=l to 25 : for U=1 to 15 : 

A$ (LVL, I,U)="non" : next U : next I : next LVL : LVL=5 

51070 1=0 : ink 1 

51080 for X=1 to 5 

51090 for Y=1 to 5 

51100 box X*20,Y*20 to X*20+20, Y*20+20 

51110 inc I : set zone I,X*20,Y*20 to X*20+20,Y*20+20 

51120 CO(I,1)=X : CO(I,2)=Y 

51130 next Y : next X 


51650 if U=2 and T<21 then pen 1 : locate 33,U+] : 
print 'oui” : A$(LVL,T,U)="oui" : gosub 51820 
51660 if U=1 and T>5 then pen 1 : locate 33,U+1 : 
print “oui” : A${LVL,T,U)="oui" : gosub 51820 
51670 if U=13 then shoot : if AS(LVL,T, 14)="non" 
and A$ (LVL,T,15)="non" then locate 33,14 : print 
“oui” : A$(LVL,T,U)="oui” else gosub 51720 

51680 if U-14 then shoot if A$(LVL,T,13)="non" and 
A$(LVL,T,15)="non" then locate 33,15 : print “oui” 
: A$(LVL,T,U)="oui” else gosub 51720 

51690 if U=15 then shoot if A${LVL,T,13)="non" and 
A$ (LVL,T,14)="non" then locate 33,16 : print “oui” 
: A$(LVL,T,U}="oui" else gosub 51720 

51700 if U>9 and U<13 then pen 1 : locate 33,U+1 : 
print “oui” : A$(LVL,T,U)="oui” 

51710 OK=1 : goto 51550 

51720 rem RRRRRRRRRRÉ erreur RRRRÉRRARRARRÉRÉRERAARX 
51730 locate 33,U+1 : pen 1 : print "non" : 

A$ (LVL, T,U)="non" 

51740 locate 1,19 : pen 4 : print “impossible 
d'avoir deux objets de meme type dans la meme salle 
: press key “ : bell : wait key : locate 1,19 : 
print spaces (80) 

51750 returm 

51760 rem RARARRX change level RRRRRRRRRARARRRRRRRÉ 
51770 if C=10 and LVL>1 then dec LVL 

51780 if C=11 and LVL<5 then inc LVL 

51790 if mouse key=1 then 51790 

51800 locate 8,0 : print LVL 

51810. goto 51330 

51820 rem ****#***4# draw les portes existantes 
RARARRARRRRA 

51830 W=0 : for X=1 to 5 

51840 for Y=1 to 5 

51850 ink 1 : box X*20,Y*20 to X*20+20, Y*20+20 
51860 next Y : next X 

51870 W=0 : for X=1 to 5 : for Y=l to 5 

51880 inc W 


52320 LVL-OLDLVL : return 


10 goto 20200 

20000 rem ** Prépare l'écran compacté 

20005 rem ** pour nos besoins 

20010 mode 0 : key off : curs off : hide 

20015 for C=0 to 15 : colour C,0 : next C 

20017 locate 0,0 : paper 2 : pen 14 : centre “HOT 
DOG !" : A$=screen$ (back, 40,0 to 250,8) 

20020 unpack 11,physic : get palette (physic) 
20030 screen copy physic to back : erase 5 : reser- 
ve as datascreen 5 : screen copy physic to 5 

20050 ink 0 : bar 40,28 to 170,70 

20070 ink 1 : polyline 153,21 to 153,27 

20080 ink 2 : bar 60,1 to 230,11 

20090 ink 1 : polyline 60,0 to 230,0 

20100 ink 4 : polyline 60,12 to 230,12 

20110 screens (physic, 40, 3)=A$ 

20120 screen copy physic to back 

20130 ink 0 : bar 215,159 to 305,180 

20140 ink 12 : box 215,159 to 305,180 : ink 0 : bar 
110,180 to 142,191 

20150 ink 13 : box 216,160 to 304,179 : ink 8 : bar 
65,156 to 79,161 

20170 erase 11 : erase 5 : reserve as datascreen 5 
: screen copy back to 5 : return 

20200 rem ** INSTRUCTIONS +** 

20210 mode 1 

20220 key off : hide 

20230 windopen 1,0,0,79,12,0,3 

20240 centre “Programme de préparation" 

20250 print : print : centre “En premier lieu , 
sous l'editeur de sprites” : print 

20260 centre “Veuillez : - Charger Animalsl.mbk” 


51140 locate 16,0 : print "salle —"” 51890 if A$(LVL,W,3)="oui” then AS${(LVL,W-1,4)="oui" 20270 print : centre “ - Merger 
51150 pen 15 : locate 16,2 : print “porte gauche —” : ink 0 : draw X*20+5,Y#20 to X*20+15, Y*20 Animals1.mbk” 
51160 locate 16,3 : print “porte droite —” 51900 if A$(LVL,W,1}="oui” then A$(LVL,W-5,2)="oui" 20280 print : centre “ - Merger 
51170 locate 16,4 : print “porte haut —" : ink 0 : draw X*20,Y*20+5 to X*20,Y*20#15 Animals? .mbk" 
51180 locate 16,5 : print “porte bas —" 51910 if A$(LVL,W,2)="oui" then A$(LVL,W+5,1)="oui" 20290 print : centre “ - Merger 
51190 pen 14 : locate 16,6 : print “mvt vers le haut-"” : ink 0 : draw X*20+20,Y*20+5 to X*20+20, Y*20+15 Animals2 .mbk" 


51200 locate 16,7 : print “mvt vers le bas -” 

51210 pen 13 : locate 16,8 : print “robot is 

51220 locate 16,9 : print “pieuvre sd 

51230 locate 16,10 : print “bulldog ——" 

51240 locate 16,11 : print “nombre cé 

51250 locate 16,12 : print “ de fois —" ne 
51260 locate 16,13 : print “ a toucher — “ 

51270 pen 12 : locate 16,14 : print “ pt de vie max — “ 
51280 locate 16,15 : print “ point de vie — 

51290 locate 16,16 : print “ extra life — 

51300 locate 16,17 : print “to save : click->sav” ) 
51305 locate 16,18 : print “to QUIT : click->QUI” 

51310 if mouse key=2 then goto 51310 

51330 locate 1,19 : print “choisir une salle” 

51340 I=0 : for X=1 to 5 

51350 for Y=1 to 5 

51360 inc I : set zone 1,X*20,Y*20 to X*20+20, 

Y#20+20 











51920 if A$(LVL,W,4)="oui" then A$(LVL,W+1,3)="oui” 
: ink 0 : draw X*20+5,Y*20+20 to X*20+15, Y*20+20 
51930 next Y : next X 

51940 retum 

51950 rem ***##**4k4*4k4x close door 
ÉRRRRARRARARARARARRÉRRRREÉ 

51960 if U=3 and T0 and T>1 and T>6 and T>1] 
and T@16 and T<>21 then pen 1 : locate 33,U+1 : 
print “non” : A$(LVL,T,U)="non" : AS$(LVL,T-1, 4) 
="non" : gosub 51820 

51970 if U=4 and TO5 and T<>10 and T<>15 and T©20 
then pen 1 : locate 33,U+1 : print “non” : A$(LVL, 
T,U)="non" : AS(LVL,T+1,3}="non" : gosub 51820 
51980 if U=2 and T<21 then pen 1 : locate 33,U+#1 : 
print “non” : A$(LVL,T,U)="non" : 

A$ (LVL, T+5,1)="non: gosub 5000” 

51990 if U=1 and T>5 then pen 1 : locate 33,U+1 : 
print “non” : A$(LVL,T,U}="oui" : AS(LVL,T-5,2)= 


20300 print : centre “(Tous ces fichiers sont 
présents sur le disk ‘Accessoires’ )" 

20310 print : centre “Puis sauvez les sprites sous 
le nom : SPRITE.MBK" 

20330 wait key 

20340 windel 1 

20350 locate 0,12 : centre “Insérez le disk acces- 
soires SVP" 

20360 print : centre “(Je cherche BACKGRND.MBK & 
TUKES .MBK) 

20365 wait key 

20370 erase 11 : load “A:BACKGRND.MBK”,11 : Load 
“A: TUNES . MBK” 

20380 gosub 20000 : cls : mode 1 : key off 

20390 locate 0,12 : centre “Insérez le disk conte- 
nant votre fichier" 

20400 print : centre “SPRITE.MBK" : print : centre 
“(Créé en suivant les instructrions données)" 


—+ page 7 





EYES 


Cet accessoire tourne sur tous les ST et TT de Pressimage, ordre du Boss ! Big Brother is watching you ! 


/* Les ptits yeux du grand méchant loup */ 


/* Turbo C 2.03 - 11/6/91 */ 
/* (c) J. Caron & Pressimage 1991 */ 


#finclude <stdio.h> 
finclude <math.h> 
#include <aes.h> 
finclude <vdi .h> 
finclude <tos.h> 


fdefine RAYON 3 


int big one(16]= /* le dessin des grands cercles */ 
{ 
0x0000, Ox07c0, Ox1830, Ox2008, Ox4004, Ox4004, Ox8002, Ox8002, 
Ox8002, Ox8002, OxB002, Ox4004, Ox4004, Ox2008, O0x1830, Ox07c0 
}; 


int little one[5]= /* les petits (pupilles) */ 
{ 0x7000, Oxf800, Oxf800, Oxf800, 0x7000 }; 


/* les MFDBs pour les copies de blocs */ 


MEDB big={ big one, 16, 16, 1, 1, 1 }; 

MEDB little={ little one, 16, 5, 1, 1, 1 }; 

MFDB scr={ 0 }; 

/* fd addr=0 : le VDI trouve tout seul les caractéristiques de l'écran #/ 


/* les couleurs: 1 (noir) et O (blanc) */ 
int colors{2]={ 1, O }; 


/* pour le détournement du trap */ 
extern void (*o trap2) (); 
extern void n trap2(); 


int vdih,max x, ok=0; 
int xpos, ypos; 
int xc{2],yc; 


/* coin haut gauche des yeux */ 

/* centre des yeux */ 

int px,py,ox{2],0y[2]; /* ancienne position souris / yeux */ 
void *screen; /* l'adresse de l'écran */ 

int fx,fy,fw,fh; /* les coords de la boite d'infos */ 


/* Description de ma “boite de dialogue” ! */ 
char *stringl="Eyes 1.1 - (c) J. Caron 1991”; 


OBJECT form{]= 
{ 

-1, -1, -1, G BUTTON, 0, OUTLINED, 0, 0, 0, 30, 3, 
}; 


/* on initialise le VDI */ 


void init vdi (void) 

{ 
int work in{11],work out{[57]; 
int i; 


/* le handle de l’aes, merci */ 
/* périphérique à ouvrir (ou 1) */ 


vdih-=graf handle(si,ai,ei,&i); 
work_in{0]=Getrez({)+2; 

for (i=0;i<10;work in[it+]=1); 
work_in[10]=2; 

v_opnvwk (work in, &vdih,work out); 
max x=work out{0]; 


/* on ouvre */ 
/* on note la largeur */ 


} 
/* en sortant (si pas en acc) */ 


void exit_vdi (void) 
{ 
v_cisvwk (vdih) ; 
} 
/* prépare la boite de dialogue */ 


void init box (void) 
{ 


/* transformations coords */ 
/* le texte */ 
/* on centre */ 


rsre obfix (form, 0); 
form{0].ob spec.free string=stringl; 
form center (form, &fx, &fy,&fw, &fh) ; 

} 
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/* pour indiquer les coordonnées des yeux */ 
void set_coords (int x,int y} 
{ 


ok=1; 


XPOS=X; 
ypos=Yy; 
xc(0]=x+7; 
xc{1]=x+23; 
yc=y+8; 
screen=Logbase () ; 
} 


/* prend un arbre d'objets de type menu, et cherche la place où mettre 
les yeux, juste après le dernier menu */ 


void scan tree(OBJECT *tree) 
{ 
/* tree[2]: 
objet contenant les titres de menus, 
fils de la barre de menus (item #1}, " 
commençant en x=0 dans l'écran (item #0) */ 


} 


/* Quand on n’a pas de menu, on appelle no menu, qui met les yeux à la 
droite de l'écran */ 


void no menu (void) 


{ 
} 


/* la fonction la plus utile : affichage des yeux */ 


void update eyes(int x, int y) 
{ 





TIENS, 
VOUS M'AVEZ 
RECONNU 7.. 


Jacques CARON 
int x=tree[2].ob xttree[2].ob width; 


if (x<max x-32) 
set_coords (x, 0) ; 


/* de la place ? */ 


else 
set_coords (tree[2].ob x,0); 






set_coords (max_x-32, 0); 


int pxy[8]; 
int i,dist; 
long xx, yy; 
int nx,ny; 
int hidden=0; 


/* si pas d'yeux en ce moment, ou si on n/a pas bougé, 
ou si on n’est pas sur le bon écran, tant pis */ 
if (lok || (ok==2 && px==x && py==y) || screen!=Logbase()) 

return; 
/* NDC: Comment ça, tant pis? */ 
/* L'auteur: oui, tant pis, na, c'est comme ça. */ 
/* NDC: Ha d'accord, on voit l'genre du mec... */ 


/* si la souris est un peu trop près, on la cache */ 
if (y<32 || py<32) 
{ 
v_hide c({vdih); 
hidden=1; 
} 
/* pour chacun des yeux */ 
for (i=0;i<2;it+) 
{ 
/* position relativement au centre de l'oeil */ 
xx=x-xC[i]; 
YY=Y-YC; 


/* distance */ 
dist={int}sqrt (xx#xx+yy*yv) ; 


/* si à l'extérieur, on se met sur le bord */ 
if (dist>=RAYON) 
{ 
nx=xc{i]+RAYON*xx/dist; 
ny=yc+RAYON+yy/dist; 


else /* sinon, à la position de la souris #/ 


nx=x; 
NY=Y; 


/* centre -> coin supérieur gauche */ 
nx-=2; 
ny-=2; 


/* pas bougé ? on s'en va */ 

if (ok==2 686 nx==ox{i] &6 ny==oyli]) 
continue; 

/* NDC: Comment ça, on s'en va? */ 

/* L'auteur: taaaaa mèèère! */ 


/* le grand cercle */ 

pxy[0]=0; 

pxy{1]=0; 

pxy{2]=15; 

pxy{3]=15; 

pxy[4]=xposti*16; 

pxy[5]=ypos; 

pxy(6]=xposti*16+15; 

pxy{7]=ypost15; 

vrt_ cpyfm(vdih, 1,pxy,&big, «ser, colors); 


/* le petit */ 

pxy[0]=0; 

pxy(1]=0; 

pxy{21=4; 

pxy{[3]=4; 

pxy[4)=nx; 

pxy[5]=ny; 

pxy(6]=nxt4; 

pxy(7]=ny+t4; 

vit cpyfm(vdih,1,pxy,slittle,&scr, colors); 


ox{i]=nx; 
oyli]=ny; 
} 
if (hidden) 
v show c(vdih,1); 
PXx=X; ‘= T 
PYy=Y; 


ok=2; /* 2=on est déjà passé par là */ 


EYES 


/* met en place notre trap 2 à nous */ 


void init trap(void) 


{ 


o_trap2=Setexc (0x22,n trap2); 


} 
int main(void) 
{ 


if (_app} 


{ 


/* application ?+/ 


/* on met les yeux en haut à gauche, et on attend un clic */ 
appl_init(); 

graf_mouse (ARROW, OL) ; 

init vdi(); 

set_coords (0, 0); 

while (1) 

{ 


int e,x,y,i; 


e=evnt multi (MU TIMERIMU KEYBDIMU BUTTON, 











68000 & C 





8x; &Yy 
&i, 6i, &i, &i); 
if (es (MU BUTTON MU KEYBD) ) 
break; 
update eyes (x, y); 
} 


/* redraw, sioupli */ 

form dia1(3,0,0,0,0,fx,fy, £w, fh); 
/* on rend la main */ 

wind update (END UPDATE) ; 

break; 


case AC CLOSE: /* début ou fin d'application */ 
ok=0; /* On n'affiche plus les yeux */ 
break; 


} 


/* si pas ok, on attend un menu bar jusqu’à 1 seconde */ 
for (i=0;!ok && i<10;i++) 


evnt_timer (100, 0); 


l 1 l 
0! 0! ' 0! 0, 0, /* toujours pas ok? On met les yeux à droite */ 
0, 0, 0, 0, 0, if (ok) 
0, no_menu () ; 
10, 0, 
6x, &Y, /* et le plus important ! */ 
&i, &i, &i, si}; update eyes (x, y); 
if (es (MU BUTTON |MU KEYBD) ) } 
break; } 


update eyes (x, y}; 
} 
exit vdi (); 
appl exit (); 


else /* accessoire ! */ 


int ap-id; 


/* on initialise plein de beau monde */ 


ap_id=appl init (); 
menu-register (ap id,” Eyes 1.1”); 
init vdi (); 

init box(); 

init trap(); 


/* ze boucle */ 
while (1) 
{ 
int e,x,y,i,buf{8]; 


/* on attend-un événement */ 
e=evnt multi (MU TIMERIMU MESAG, 


0, 0, 

0, 0, 

0; 0, 

buf, 

10, 0, 

8x, &Ys 
&i, &i, 6i, 


if (esMU MESAG) 
{ 


switch (buf[0]) 
{ 


case AC OPEN: 





HOTDOG 


suite de la page 5 
20410 wait key : load “a:sprite.mbk" : cis : centre 
“MERCI!” 
20510 mode 0 : key off : curs off : hide 
20520 for 1=43 to 46 : sprite 1,100,100,1 : screen 


copy back to physic : screen copy physic to back : 
for X=0 to 47 : gosub 20540 : next X : screen copy 
physic to back : wait vbl : get sprite 0,0,1 : cls 
: next I 

20530 for 1=67 to 74 : sprite 1,100,100,1 : screen 
copy back to physic : screen copy physic to back : 
for X=0 to 47 : gosub 20540 : next X : screen copy 
physic to back : wait vbl : get sprite 0,0,1 : cils 
: next I 

20531 cls : ink 3 : 
sprite 0,0,75 

20535 qgoto 20750 
20540 rem 


bar 0,0 to 3,3 : wait vbl : get 





return 0; 


LE LISTINGUE ASSEMBLEUR "TRAP2,S" 


FICHIER "EYES.PRJ" 


c:\eyes.acc 


TCSTART.0 


TCSTDLIB .LIB 
‘TCGEMLIB.LIB 
TCTOSLIB.LIB 
TCFLTLIB .LIB 


; Ici on prend le trap #2, et on récupère menu bar 
import scan tree,no menu,ok = 
export n trap2,o trap2 
/* dans menu */ a EEE 
n_trap2: 
cmpi.w #$c8,d0 ; AES ? EYES.C 
bne cont_trap ; non, cassos (NDC: Hein?) TRAP2,S 
movea.l dl,a0 ; aespb 
movea.l (a0},al ; contri 
cmpi.w #30, (al) ; menu bar ? 
bne cont_trap ; non, cassos 
movea.l 8(a0),al ; intin 
tst.w (al) ; ON ou OFF ? 
0, beq cont trap ; OFF -> cassos 
0, 0, 0, s 
0, 0, 0, menu_on: ; ON 
movem.l dO0-d7/a0-a6,-(sp) ; on sauve un peu... 
. movea.l 16(a0),a1 ; addrin 
&i); 


move. 1 


(al), a0 


; adresse de l'arbre 


i NB: pour un autre compilo que TC, il faudra mettre 
; (al) sur la pile plutot que dans a0 


; jsr 
/* clic sur “Eyes 1.1” */ 


/* on prend la main +/ 

wind update (BEG UPDATE) ; 

/* on réserve */ 

form dial (0,0,0,0,0, £x, £y, £w, fh); 
/* on affiche */ 

objc draw(form, 0, 10, fx, fy, fw, fh}; 


movem.1l 


cont_trap: 


scan t ree 


; fonction C 


i Si on met (al) sur la pile, ne pas oublier 
; un addq.l #4,sp ici... 


{sp)+,d0-d7/a0-a6 ; on remet tout 


/* on attend un clic, tout en bougeant dc.w S4ef9 : JM 
les yeux */ o trap2: 
while (1) dc.l 0 ; l'ancien TRAP 


{ illegal 
e=evnt multi ( du 


MU_TIMERIMU KEYBDIMU BUTTON, 


1, 1, 1, 

0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 
0, 

10, 0, 


20570 BLIT1$=chr$ ($A0) +chr$ (0) +chr$ ($4E) +chr$ (575 
20580 BLIT2$=chr$ ($A0) +chr$ (7) +chr$ (S4E) +chr$ (575) 
20590 call varptr(BLIT1$) 

20600 BLT A$=spaces (100) 

20610 doke varptr(BLT A$},1 : rem LARGEUR 

20620 doke varptr(BLT A$)+2,48 : rem HAUTEUR 

20630 doke varptr(BLT A$)+4,4 : doke varptr(BLT A$) 





20710 loke varptr (BLT_A$)+42,0 
20720 areg(6)=varptr(BLT_A$) 
20730 call varptr (BLIT2$) 
20740 return 


20750 cls 


insérer votre disk de travail" 


20760 print : 


: mode 1 : locate 0,12 


: centre “Veuillez 


centre “(Je sauve la banque. ..}” 


+6,15 20770 wait key : save “A:MEDOR.MBS" 

20640 doke varptr(BLT A$)+8,0 : loke varptr(BLT A$) 20780 cls : centre “Et bien jouez maintenant...” 
+10,$3030303 20790 print : centre “Lancez le fichier HOTDOG.BAS" 
20650 doke varptr{BLT A$)}+14,X+100 : doke varptr : wait key : end 

{BLT A$)+16,100 : rem ORI(X/Y) 

20660 loke varptr{BLT A$)+18,physic : doke varptr 

(BLT_A$)+22,8 : rem ORI (ECRAN) = : - 

20670 doke varptr(BLT A$)+24,160 : doke varptr Le Basic STOS, C est aussi sur 


(BLT_A$) 126,2 

20680 doke varptr(BLT_A$)+28,47-X : 
{BLT_A$)+30,0 : rem SOURCE (X, Y) 
20690 loke varptr(BLT A$)+32,physic : 
(BLT_A$)+36,8 : rem DEST(ECR) 

20700 doke varptr(BLT A$)+38,160 : doke varptr 
(BLT_A$)+40,2 


doke varptr 


doke varptr 


3615 STMAG 


choix "*STO" 





EDITEUR 


Passez vos disquettes au peigne fin, grâce à cet éditeur de secteurs et à ses nombreuses 


options (recherche, modification, catalogue, recopie de secteurs, etc...). 





' 
EDITEUR 
* Nicolas ROUGIER pour STMAGICIEL 
' 
IF XBIOS (4) <>1 
ALERT 3,"| STOP |Cet éditeur ne fonc 
tionne Jqu’en moyenne résolution”,1," OK ",rep# 
END 
ENDIF 
init 
debut 
lirsec 
affsec 
PRINT CHR$ (27) ;"p” 
checksum 
PRINT CHR$ (27) ;"q" 
menu 
PROCEDURE menu 
Do 
key$=UPPERS (INKEY$) 
b=ASC (RIGHTS (key$) } 
c=ASC (LEFTS$ (key$) ) 
cur=comp+cc 
IF b<>0 AND c=0 
IF b=72 
IF cc>15 
SUB cc, 16 
ELSE IF cur>255 AND cur<272 
page_haute 
cc=cc+240 
ENDIF 
ENDIF 
1F b=80 
IF cc<240 
ADD cc, 16 
ELSE IF cur>239 AND cur<256 
page_basse 
cc=cc-240 
ENDIF 
ENDIF 
IF b=75 
IF cc>0 
SUB cc, l 
ELSE IF cur=256 
page haute 
ce=255 


! Monter 


|! Descendre 


! Gauche 


| Droite 


ADD cc, il 
ELSE IF cur=255 
page_basse 
co=0 
ENDIF 
ENDIF 
affz 
GOTO loop 
ENDIF 
MOUSE x,y,k 
choix=INT((x-19)/56)+INT (y/8) *12 
IF k AND choix=0 OR key$="L" ! Lire secteur 
PBOX 22,0,73,7 
info_fle 
key 
IF b=13 
lirsec 
affsec 
PRINT CHR$ (27) ; “p" 
checksum 
PRINT CHRS$ (27) ;"q" 
ENDIF 
info_gen 
PBOX 22,0,73,7 
ENDIF 
IF k AND choix=12 OR key$="E" 
PBOX 22,8,73,15 
info fle 
key 
IF b=13 
ecrsec 
ENDIF 
info gen 
PBOX 22,8,73,15 
ENDIF 
IF k AND choix=1 OR key$="T" | Texte 
PBOX 78,0,129,7 
text 
PBOX 78,0,129,7 
ENDIF 
IF k AND choix=13 OR key$="H"  ! 
PBOX 78,8,129,15 
hexa 
PBOX 78,8,129,15 
ENDIF 
IF k AND choix=2 OR key$="0" | Quit 
PBOX 134,0,185,7 
EDIT 
ENDIF 
IF k AND choix=14 OR key$="R" ! Recherche 
PBOX 134,8,185,15 
rechdisk 
PBOX 134,8,185,15 
ENDIF 
1F k AND choix=3 OR key$="M" |! Entrée buffer 
PBOX 190,0,241,7 
buffer$=tamps 
PRINT CHR (27) ;"p" 
PRINT AT(32,2); "plein" 


! Ecrire secteur 


Hexadécimal 


PRINT CHR$ (27) ; "q” 
PBOX 190,0,241,7 
ENDIF 
IF k AND choix=15 OR key$="s" 
IF buffer$"" 
PBOX 190,8,241,15 
PRINT CHR$ (27) ;"p" 
PRINT AT(32,2) ; "vide * 
PRINT CHR$ (27) ;“q" 
tamp$=buf£ fers 
buffer$="" 
affsec 
PBOX 190,8,241,15 
ENDIF 
affz 
ENDIF 
IF k AND choix=5 OR key$="&" | Page haute 
page haute 
ENDIF 
IF k AND choix=17 OR key$="é" ! Page basse 
page basse 
ENDIF 
IF k AND choix=18 OR key$="D" ! Disque 
PBOX 358,8,409,15 
init 
PBOX 358,8,409,15 
ENDIF 
IF k AND choix=24 OR key$="K" ! Catalogue 
PBOX 22,16, 73,23 
catalog 
PBOX 22,16, 73,23 
ENDIF 
IF k AND (choix=25 OR choix=26) OR key$="C" 
* Checksum 
PBOX 78,16, 185,23 
checksum 
PBOX 78,16, 185,23 
ENDIF 
IF k AND choix=27 OR key$="B" 
PBOX 190,16,241,23 
boot 
PBOX 190,16,241,23 
ENDIF 
loop: 
LOOP 
RETURN 
PROCEDURE debut 
CLS 
DIM cat$ (200), rp$ (200) 
sec$=]1 
pis?=0 
facet-0 
SETCOLOR 0,8H777 
SETCOLOR 1, &H70 
SETOOLOR 2, 6H700 
SETOOLOR 3, &H0 
BOUNDARY 0 
GRAPHMODE 3 
DEFTEXT 1,0,0,6 
TEXT 0,6,CHR$ (14)+CHR$ (15)+" L.sect Text  Quit 
M.buff Buffer Pg “+CHR$(1)+" Face 1 Sec 01 Octet 
Hex :” 
TEXT 0,14," E.sect Hexa Rech S.buff vide 


| Sortie buffer 


! Boot 


Pg “+CHR$(2)+" Disque Pis 00 W : Dec :" 
TEXT 0,22," Cata Boot 
Bin :” 


PBOX 0,0,641,23 
FOR i=19 TO 570 STEP 56 
LINE i,0,i,23 
LINE i+1,0,i+1,23 
NEXT i 
LINE 19+2456,16,19+2*56,23 
LINE 19+2*56+1,16,19+2*56+1,23 
PRINT CHR$ (27) ;“q" 
info _gen 
RETURN 
PROCEDURE aff 
PRINT CHR$ (27); "p" 
PRINT AT(57, 1) ; RIGHTS {"00"+STRS {sec$) , 2) 
PRINT AT (57,2) RIGHTS (“O0"+STRS (pis%) ,2) 
PRINT AT(51,1);STR$ (face$+1) 
PRINT CHR$ (27) ;"q" 
RETURN 
PROCEDURE init 
tst+=XBI0S (8,L:HIMEM,L:0,W:0,W:1,M:0,W:0,W:1) 
IF tst$ 
trait erreur 
ENDIF 
nbsect=PEEK (HIMEM+24) 
nbface=PEEK (HIMEM+26) 
nbpis= (PEEK (HIMEM+20) *256+PEEK (HIMEM+19) ) 
/nbface/nbsect-1 
RETURN 
PROCEDURE ecrsec 
adr+=VARPTR (tamp$) 
tst$=XBI0S (9,L:adr$,L:1,0,sec%,pis®, facef, 1) 
IF tst$ 
trait erreur 


PROCEDURE lirsec 
tamp$=SPACES (512) 
adr$=VARPTR (tamp$) 
tst4=XBIOS(8,L:adr$,L:1,0,sect,pis, face, 1) 
IF tst4 
trait erreur 
ENDIF 
info gen 
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RETURN 
PROCEDURE affsec 
comp=MUL (page, 256) 
adr$=V:tamp$ 
FOR i=5 TO 20 
tt$=HEXS (comp, 3)+": " 
PRINT AT(61,i); 
FOR j=1 TO 16 
tt$=tt$tRIGHTS (HEX$ (PEEK (ADD (adr$, comp}}, 
2},2)#" 7% 
OUT 5,PEEK (ADD (adr%, comp) ) 
INC comp 
NEXT j 
PRINT AT(1,i);tt$ 
NEXT i 
comp=MUL (page, 256) 
PRINT AT(xx+61, yy#5) ; 
OUT 5,PEEK (adr$+cc+comp) 
affz 
RETURN 
PROCEDURE rechdisk 
CLR find$ 
GRAPHMODE 1 
DEFFILL 0 
PBOX 0,24, 639,199 
ALERT 2,"| [Type de recherche|",1," HEXA 
TEXT ", rep$ 
IF rep$=2 
PRINT AT(1,4); "Quel est le texte à rechercher : ":; 
FORM INPUT 10,tt$ 
ELSE 
CER tt$ 
PRINT AT(1, 4) ;"Séquence à rechercher : "; 
FORM INPUT 20,hh$ 
hh$=UPPERS (hh$) 
IF ODD (LEN (hh$)} 
hh$="0"+hh$ 
ENDIF 
FOR i=1 TO LEN(hh$)-1 STEP 2 
tt$=tt$+CHRS (VAL (*&H"+MIDS {hh$, i,2))) 
NEXT i 
ENDIF 
IF tt$="" 
GOTO fin 
ENDIF 
hauteur=50 
DEFTEXT 1,0,0,4 
TEXT 60, hauteur, "000000000011111111112222222222 
33333333334444444444555555555566666666667777777777 
888888 x10“ ! 5 espaces à la fin 
TEXT 60,hauteur+5,"012345678901234567890123456789 
012345678901234567890123456789012345678901234567890 
12345 xl” ! itou, 5 espaces... 
TEXT 1,62,"FACE l” 
TEXT 1,122, "FACE 2" 
FOR i=1 TO 9 
TEXT 50,56+1*6,STR$ (i) 
TEXT 50,116+1*6,STR$ (i) 
NEXT i 
PRINT CHR$ (27) ;"p" 
DEFFILL 1 
FOR trkk$=pis$ TO nbpis 
FOR sidd$=facet TO nbface-l 
key$=INKEYS 
tamp$=SPACES (512*nbsect) 
adr#$=V:tamp$ 
tst$=XBIOS (8,L:adr$,L:1,0,1,trkk%,sidd$, 
nbsect} 
IF tst# 
trait erreur 
ENDIF 
FOR i=0 TO 8 
PSET trkk$*6+60,62+sidd%*60+1*6,3 
NEXT i 
PRINT AT(57,2) ; RIGHTS ("O0"+STRS (trkk%) , 2) 
PRINT AT(51,1) ;STR$ (sidd++1) 
tst$=INSTR (tamp$,tt$) 
IF tst$ 
i=INT(tst%/512) 
PBOX trkk#%*6+59,60+sidd%*60+1+6,trkk%*6+63, 
62+5idd8*60+i*6 
sec+=i+l 
pitt=trkk$ 
fa%=sidd# 
reti=tst+ 
find$=1 
ENDIF 
EXIT IF key$=CHR$ (27) 
NEXT sidd$ 
EXIT IF key$=CHR$ (27) 
NEXT trkk® 
IF key$=CHR$ (27) OR find#=0 
GOTO fin 
ENDIF 
PRINT CHR$ (27) ;"q" 
pis$=pit$ 
facet=fa$ 
lirsec 
rett=ret$-INT (ret$/512) *512 
IF ret#>255 
ce=ret#-257 
page=1l 
ELSE 
ce=ret$-] 
page=0 
ENDIF 
fin: 
DEFFILL 0 
PBOX 0,24,639,170 





GFA-BASIC 




















NE CHERCHEZ 
PLUS, ON A 
RETROUVE LA 
DISQUETTE !.. 


DEFTEXT ,,°6 
GRAPHMODE 3 
lirsec 
aff 
affsec 
info gen 
RETURN 
PROCEDURE af£z 
yy=INT (cc/16) 
xx=cc- (yy*16) 
A=PEEK (V:tamp$+cc+comp} 
GRAPHMODE 2 
DEFFILL 2 
PBOX (xx+60)*8, (yy+4) #8, [xx+61) *8-1, (yy+5) *8-1 
DEFTEXT 3 
TEXT (xx+60) *8, (yy+5) *8-2, CHRS (a) 
PRINT CHR$ (27) ; "p" 
PRINT AT(72,1) ;HEX$ (a,2) 
PRINT AT (72,3) ;BIN$ (a,8) 
PRINT AT (72,2) ;RIGHTS ("000"4STRS (a) , 3) 
PRINT AT (63,2) ;HEX$ (cctcomp, 3} 
PRINT CHR$ (27) ; “q" 
IF cclocc 
PRINT AT(xx1+61,yy1+5) ; 
OUT! 5, PEEK (VARPTR (tamp$) +ccl+comp} 
PRINT AT(5+xx1*3,yy1+5);" “;:HEX$ (PEEK (V:tamp$ 
+ccl+comp),2)+" " ! un espace entre guillemets 
ENDIF 
TEXT (4+xx*3) *8, (yy+5)*8-2,"[ j" 
DEFTEXT 2 
TEXT (5+xx*3) *8, (yy+5) *8-2,HEX$ (a, 2) 
yyl=yy 
xx1=xx 
ccl=cc 
GRAPHMODE 3 
RETURN 
PROCEDURE text 
REPEAT 
key$=INKEYS 
IF key$©"" AND co<255 AND key$©CHR$ (13) 
yy=INT (cc/16) 
xx=cc- (yy*16) 
PRINT AT (xx+61, yy+5) ; 
OUT 5,ASC(key$) 
POKE (V:tamp$+oc+comp) ,ASC(key$) 
PRINT AT(6+xx*3, yy+5) : HEX$ (ASC(key$) , 2) 
INC cc 
affz 
ccl=cc 
ENDIF 
UNTIL keyS$=CHR$ (13) 
PRINT CHRS (27) ;"p" 
checksum 
PRINT CHRS (27) ; “q” 
RETURN 
PROCEDURE key 
REPEAT 
key$=INKEYS 
IF UPPERS (key$)="F" 
INC face* 
IF facet>=nbface 
face$=0 
ENDIF 
aff 
ENDIF 
b=ASC (RIGHTS (key$) ) 
c=ASC (LEFTS (key$)) 
IF b<>0 AND c=0 
IF b=80 
INC secÿ 
IF sec%>nbsect 
sec+=nbsect 
ENDIF 
ENDIF 
IF b=72 
DEC sec$ 
IF sec$<l 
sec+=1 
ENDIF 
ENDIF 
IF b=77 
INC pis* 
IF pist>nbpis 
pis*=nbpis 
ENDIF 
ENDIF 
IF b=75 
DEC pist 
IF pist<0 
pis+-0 
ENDIF 
ENDIF 
aff 
ENDIF 
UNTIL b=13 OR b=27 
RETURN 
PROCEDURE page_basse 
PBOX 302,8,353,15 
page=l 
affsec 
PBOX 302,8,353,15 
RETURN 
PROCEDURE page haute 
PBOX 302,0,353,7 
page=0 


! 2 espaces 


[Monter 


[Descendre 


{Gauche 


Droite 


suite en page 9 














LE LISTING ASSEMBLEUR 













ki Viruskicker 2 

* par: - Jedi of Sector One 

» - Ultimatum of Zap Creation 
* from the Heavy Killers 

# Viruskicker 2 

* par: - Jedi of Sector One 

* - Ultimatum of Zap Creation 





* (from the Heavy Killers) 






start pea thk (pc) 
move #9,-(sp) 
trap #1 
lea 2(sp),a5 
lea pat (pc) ,a0 
move.l $42e.w,d0 
movea.l d0,a6 
cmpi.l #$12123456, (a6) 
beq.s virus 
subi.1 #$200,d0 
bne.s check 
lea ok(pc) ,a0 
move.l a0, {(a5) 
trap #1 
lea menu (pc) ,a0 
move.l a0, (a5) 
trap #1 
subq.w #2, (sp) 
key trap #1 
swap d0 
cmpi.b #$3b,d0 
bne.s nanl 
move #$2700,sr 
lea 8.w,al 
lea rstrout (pc) ,aû 
moveq #9,d7 
move.l (a0)+, (al)+ 
dbf d7,*-2 
jæ $12.w 
rstrout dce.l 12 
movea.l 4.w,a0 
jmæ (20) 
lea nanl (pc) ,a0 
moveq #0,d0 
move.l d0,d1 










check 









virus 






















EDITEUR 


suite de la page 8 






affsec 
PBOX 302,0,353,7 
RETURN 
PROCEDURE hexa 
DO 
GRAPHMODE 1 
comp=page*256 
Yy=INT (cc/16) 
xx=0c- (yy*16) 
tt$=MID$ (HEX$ (PEEK (V:tamp$+cc+comp) , 2), 1,1) 
DEFTEXT 3 
TEXT (4+xx*3) *8, (yy+5) *8-2," 
DEFTEXT 2 
TEXT (5+xx*3) *8, (yy+5) *8-2,HEXS (PEEK (Vitamp$ 
+cctcomp) ,2) 
DEFFILL 2 
GRAPHMODE 1 
PBOX {xx+60) *8, (yy+4) #8, (xx+61) 8-1, (yy+5) 8-1 
GRAPHMODE 2 
DEFTEXT 3 
TEXT (xx+60) #8, (yy+5) *8-2, CHRS (PFEK {V:tamp$ 
+cc+comp)) 
REPEAT 
PRINT CHR$ (27) ;"p" 
PRINT AT(63,2) ;HEX$ (cc+comp, 3) 
PRINT CHR$ (27) ;“q"” 
REPEAT 

key$=UPPERS (INKEYS) 

EXIT IF key$=CHR$ (32) OR key$=CHR$ (13) 
UNTIL INSTR(*0123456789ABCDEF”,key$) 
a=VAL (*£H"+key$+tt$) 
tt$=keys 
IF key$-CHR$(32) OR keyS$=CHRS (13) 

a=PEEK (V:tamp$+cc+comp) 

ENDIF 
EXIT IF key$=CHR$ (13) 
PRINT CHR$ (27) ;"p" 
PRINT AT(72,1) ;HEXS (a, 2) 
PRINT AT(72,2) ;RIGHTS (“*000"+STRS (a) y3) 
PRINT AT (72,3) ;BINS (a, 8) 
PRINT CHRS (27) ;“q" 
GRAPHMODE ] 
DEFTEXT 2 
TEXT (5+txx*3) *8, (yy+5)*8-2,HEXS (a, 2) 
DEFFILL 2 
PBOX (xx+60)*8, (yy+4)*8, (xx+61)*8-1, (yy+5)*8-1 
GRAPHMODE 2 
DEFTEXT 3 
TEXT (xx+60) *8, (yy+5) *8-2,CHRS (a) 
POKE V:tamp$+cc+comp, a 
UNTIL key$=CHR$ (32) 
PRINT AT(S+xx*3,yy+5) ;” “;HEXS(a,2);" v 
PRINT AT(61+xx, yy+5) ; 
OUT 5,a 
EXIT IF key$=CHR$ (13) 
INC cc 
IF cc=256 AND page={ 
cc=0 
GRAPHMODE 3 
page basse 
ENDIF 













]" ! 2 espaces 


















































VIRUS KICKER 2 


Voilà de quoi soigner vos disquettes (pas vos jeux originaux!). On installera 
le programme dans le boot-secteur d'une disquette vierge, grâce au 3ème 
listing. Pas trop recommandé aux novices. 


JEDI & ULTIMATUM (from The Heavy Killers) 









move.l d6,d7 
killall movem.1 d0-d7, (a0) 
add #$20,a0 
bra.s killall 
nanl cmpi.b #53e,d0 
bne.s nan2 
bchg #1, $ffff820a.w 
nan? cmpi.b #$39,d0 
bne.s nan3 
addq.l #6,sp 
rts 
nan cmpi.b #$3d, d0 
bne.s nan 
lea csr(pc),a6 
move.l a6,(a5) 
addq.w #2, (sp) 
trap #1 
lea label (pc) ,a6 
move #$1a00, (a6) 
move.l a6,(a5) 
addq.w #1, (sp) 
trap #1 
move #$2020, (a6) 
addq.l #6,sp 
bra start 
nan4 cmpi.b #$3c,d0 
rtn bne key 
movea.l $4de.w,a6 
move #1, (sp) 
cir.l -(sp) 
pea 1.w 
clr.l -(sp) 
pea 32000 (a6) 
move #8,-(sp) 
trap #14 
movem.l 32008 (46) ,d1-d5 
lea start-28 (pc) ,a6 
movem.l d1-d5,8 (a6) 
move #9, (sp) 
move.l a6,2(sp) 
move #254,d1 
add (a6)+,d0 


IF cc>255 AND page=1 
co=255 
ENDIF 
LOCP 
affz - 
PRINT CHR$ (27) ;"p" 
checksum 
PRINT CHR$ (27); "q" 
RETURN 
PROCEDURE trait erreur 
er$=MIDS (ERRS (tst4),5) 
er$=MID$ (er$,1,LEN(er$)-9)+" 
er$=MID$ (er$, SUCC (2*ABS (MID$ (er$,l1,1)="*"))) 
IF INSTR(er$,"|") 
er$=MIDS (er$, 1, INSTR(er$,”|”)-1) +" 
» SUCC(INSTR (er$, “|”})) 
ENDIF 
ALERT 0,er$,1," OK 
RETURN 
PROCEDURE catalog 
n_disk$="” AUCUN” 
CLR nbf,nbd,c 
detail directory 
GRAPHMODE 1 
DEFFILL 0 
PBOX 0,24,639,199 
COLOR 1 
BOX 0,28, 639, 122 
BOX 0,122,380,198 
BOX 380,122, 639, 198 
PRINT AT(2,17);"FICHIER :” 
PRINT AT(2, 18) ; "LONGUEUR :” 


1"MIDS (er$ 


“,tst$ 


! Arrangez-vous 


PRINT AT(2,20) ; "TYPE :“ | pour que ce 
PRINT AT(2,21) ; "GENRE nr” :lspit, joli. 
PRINT AT(2,22) ; "ECRITURE :" | Vous êtes 
PRINT AT(2, 23) ; "OBJET :" ! assez grands. 


PRINT AT(50,17); "NOM DU DISQUE :";n disk$ 
PRINT AT(50,18) ; "NOMBRE DE FACES: “;nbface 
PRINT AT(51,19) SUCC (nbpis);" PISTES PAR FACE” 
PRINT AT(52,20) ;nbsect;” SECTEURS PAR PISTE” 
FOR i=1 TO nbf 
ADD c,CVL(RIGHTS (rp${i),4)) 
NEXT i 
PRINT AT(50,21) ; "PLACE OCCUPEE: “;c:" Octets" 
PRINT AT(50,22);"PLACE LIBRE : *:DFREE (0); Octect” 
PRINT AT(50,23) ; “NOMBRE DE DOSSIERS: “;:nbd 
PRINT AT(50,24) ; “NOMBRE D'OBJETS: “;:nbf-nbd 
FOR i=1 TO ABS {nbf£<12} *nbf+ABS (nbf>12) 11 
PRINT AT(4,i+4);MID$ (cat$(i),4) 
NEXT i 
cur=] 
cy=1 
DO 
PRINT AT(2,cy+4);:"< “#MIDS (cat$(cur),4)+" >"+ 
SPACES (30) 
PRINT AT(13,17) ; LEFTS (MID$ (cat$ (cur) , SUCC 
(RINSTR (cat$ (cur), "\”)))+SPACES (30), 30) 
PRINT AT(13, 18) ;CVL (RIGHTS (rp$ (cur),4)); 
* Octets”;SPACES (8) 
res$=BIN$ (ASC (MIDS (rp$ (cur),1,1)),5) 
PRINT AT (16,20) ;MID$ (“NormalSystem”, VAL (MIDS 
(res$,3,1))*7, 6) 
PRINT AT(16,21) ;MID$ (“FichierDossier”, VAL (MIDS 
(res$, 1,1))*8,7) 
PRINT AT(16,22) ;MIDS (“Read-WriteRead only “,VAL 
(MID$ (res$, 5, 1)) *11, 10) 










dbf d1,*-2 
move #$1234,d1 
sub d0,d1 
move d1, (a6) 
trap #14 
lea 24 (sp),sp 
bra.s youpi 
csr dc.b 27,'e!,0 
thk de.b 27,'£1,27,'E",27,!y! 
dc.b 32,42,'Jedi/Sector One/THK’ 
dc.b 27,'Y!,34,48,' presents! 
dc.b 27,'Y,36,45,'Viruskicker 2',0 


pat de.b 27,'Y',40,45,' *VIRUS ALERT*#’,7,0 
ok de.b 27,!Y’,40,47,!'-No virus-' ,0 
menu de.b 27,'Y',44,32,'Disk name: 

label dcb.b 28,32 


dc.b 13,10,10,'Fl:Reset!,13,10 
de.b ‘F2:Copy dis boot’,13,10 
dc.b ‘F3:Set name! ,13,10 

dc.b ‘F4:Sync’,13,10 

dc.b ‘Space:Quit’ 

dc.b 27,!Y!,44,44,0 


* Ce listing génère directement le fichier 
* VRSKICKR.PRG 
thk$=STRINGS (28, 0) 
FOR g%=0 TO 120 

READ zc$ 

thk$=thk$+MKL$ (VAL ("&H"+z2c$)) 
NEXT g$ 
BSAVE “VRSKICKR.PRG", VARPTR (thk$),512 
DATA 487A0117,3F3C0009,4E414BFF, 241FA, 1422038 
DATA 42E2C40,C961212,3456670C, 4800000, 20066EE 
DATA 41FA013B, 2A884E41, 41FA0142,2A884F41, 55574E41 
DATA 48400C00, 3B6640,46FC2700, 43F80008, 41FA000E 
DATA 7E0922D8, S1CFFFEC, 4EF80012,C, 20780004 
DATA 4ED041FA, 1C7000,22002401, 26022803, 2A042C05 
DATA 2E0648D0, FFDOFC, 2060F6, CO0003E, 66060878, 1820A 
DATA C000039, 66045C8F, 4E750C00, 3D6622, 4DFA00 74 


PRINT AT (16,23) ;MID$ ("Non cacheCache “,VAL 
(MID$ (res$, 4,1) )*9+1, 9) 
key$=INKEYS 
b=ASC (RIGHTS (key$) } 
c=ASC(LEFTS (key$)) 
IF (b=80 CR b=72) AND c=0 
PRINT AT(2,cy+4);" "“+#MIDS(cat$(cur),4)+ 
SPACES (30) 
ENDIF 
IF b=80 AND c-0 AND cur<nbf 
INC cur 
IF cy<ll 
INC cy 
ELSE 
BMOVE XBIOS (3) +40*160,XB10S(3)+32*160, 


! Descendre 


80*160 
ENDIF 
ENDIF 
IF b=72 AND c-0 AND cur>l ! Monter 
DEC cur 
IF cpl 
DEC cy 
ELSE 
BMOVE XBIOS (3) +32*160, XBIOS (3)+40*160, 
80*160 
ENDIF 
ENDIF 
EXIT IF key$=CHR$ (13) OR key$=CHR$ (27) 
LOOP 
PBOX 0,24,639,199 
affsec 
info gen 
RETURN 
PROCEDURE detail directory 
tst$=FSFIRST("A:\"+path$+"*.*",-1) 
DO UNTIL tst# 
IF LEFTS (CHAR {FGETDTA () +30}) >" ." 
IF BYTE{FGETDTA()+21} AND 8 
n_disk$=LEFTS (CHAR{FGETDTA() +30}, 60) 
ELSE 
INC nbf 
cat$ (nbf)=LEFTS (A: \"+path$+CHAR{ 
FGETDTA () +30}, 60) 
rp$ (nbf}=CHR$ (BYTE{FGETDTA () +21})-MKL$ 
({FGETDTA() +26}) 
ENDIF 
IF BYTE{FGETDTA()+21} AND 16 
INC nbd 
path$=path$+CHAR{FGETDTA () +30 }+*\" 
detail directory 
tst$-FSFIRST{("A:\"+LEFTS (path$,RINSTR 
{path$, “\”, LEN(path$) -1) }+"*,*",-]1) 
WHILE path$<>LEFT$ (path$,RINSTR(path$,”\", 
LEN (path$)-1) }+CHAR{FGETDTA () +30}+*\" 
tst3=FSNEXT () 
WEND 
path$=LEFT$ (path$,RINSTR (path$, ”\", LEN 
fpath$)-1)) 
ENDIF 
ENDIF 
CSt$=FSNEXT () 
LOOP 
RETURN 
PROCEDURE checksum 
CLR check 



















ANTI-VIRUS 
Toutes Résolutions 


PiBo 


DATA 2A8E5457, 4E414DFA, D63CBC, 1AO02A8E, 52574E41 
DATA 3CBC2020, 5C8F6000,FF400C00, 3C6600,FF722C78, 44E3EBC 
DATA 142A7,48780001, 42A7486E, 7D003F3C, B4F4E, ACEE003E 
DATA 7D084DFA, FEFB48FE, 3E0008, 3EBC0009, 2F4E 0002 
DATA 323C00FE, DO5E51C9,FFFC323C, 12349240, 3C814E4E 
DATA 4FEF0018, 60A81B65, 1B661B, 451B5920, 2A4A6564 
DATA 692F5365, 63746F72,204F6E65, 2F54484B, 18592230 
DATA 70726573, 656E7473, 1859242), 56697275, 73686963 
DATA 6B657220, 32001B59, 282D2A56, 49525553, 20414C45 
DATA 52542A07, 1B5928,2F2D4E6F, 20766972, 15732D00 
DATA 1B592C20, 4469736B, 206E616D, 65342020, 20202020 
DATA 20202020, 20202020, 20202020, 20202020, 20202020 
DATA 20200D0A, A46313A, 52657365, 740D0A46,323A436F 
DATA 70792064, 69732062, 6F6F740D, A46333A, 53657420 
DATA 6E616D65,D0A4634, 3A53796E, 630D0A53 

DATA 70616365, 3A517569, 741B592C, 2C000000 


LE LISTING GFA POUR INSTALLER 
LE PROGRAMME EN BOOT-SECTEUR 


OPEN “i”, #1, "VRSKICKR.PRG” 

SEEK #1,28 

a$=INPUTS (484, #1) 

CLOSE #1 

thk$=STRINGS (1024, 0) 

ad*=VARPTR(thk$) AND &HFFFFFFFE 

-XB10S(8,L:ad$,L:0,0,1,0,0,1) 

BMOVE VARPTR (a$) ,ad#+28,512 

LPOKE ad$,£H31FC0765 

LPOKE ad$+4,&H82406014 

FOR a%=ad$ TO adt+508 STEP 2 
ADD chk$, DPEEK {a%) 

NEXT a% 

DPOKE ad#%+510,&H1234-chk% 

-XB10S(9,L:ad#$,L:0,0,1,0,0,1) 





ER ————— 2 —"—  —"" Ù CS ER Ne cu) jempoyeD" PUIS © ES EN Che A DT ON 


FOR i=V:tamp$ TO V:tamp$+511 STEP 2 
ADD check, DPEEK (i) 
NEXT i 
PRINT AT(11,3);"Check : “;HEX$ (check, 4);” * 
RETURN 
PROCEDURE boot 
stamp$=tamp$ 
sec$=1 
pist-0 
facet-0 
lirsec 
CLR check 
FOR i=V:tamp$ TO V:tamp$+51l STEP 2 
ADD check, DPEEK (i) 
NEXT i 
IF HEX$ (check, 4)="1234" AND DPEEK (V:tamp$) <>0 
ALERT 2,"| | BOOT EXECUTABLE |PEUT-ETRE UN VI 
RUS ",1," OK ",repà 
ELSE 
ALERT 0,*PAS DE BOOT EXECUTABLE “,1, 
*_K ",rept 
ENDIF 
tanp$=stamp$ 
RETURN 
PROCEDURE info gen 
PRINT AT(1,22);"{L]:Lire secteur [T]:Texte 
[0j :Quitter [M]:Mettre dans buffer [S]:Sortie buf- 
fer” 
PRINT AT(1,23);"[E]}:Ecrire secteur [H]:hexa 
IR] :Recherche [D]:Disque [K]:Catalogue [B]:Boot" 
PRINT AT(1,24);"[C]:Checksum. Utiliser “:; 
OUT 5,1 
OUT 5,2 
OUT 5,3 
OUT 5,4 
PRINT “ pour déplacer le curseur."; 
RETURN 
PROCEDURE info fle 
PRINT AT(1,22) ; SPC (80) 
PRINT AT(1,23);" 
OUT 5,1 
OUT 5,2 
PRINT “ pour choisir le secteur, “; 
OUT 5,3 
OUT 5,4 
PRINT “ pour choisir la piste, ré 
PRINT AT(1,24) ; SPC (80) ; 
PRINT AT(1,24);" [F] pour choisir la 
face, [Esc] pour sortir “ ! 14 espaces au début 
PRINT AT(1,1) 
RETURN 


Utiliser *; 
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INTERPOL 


Un utilitaire qui calcule et dessine les transformations nécessaires pour pas- 
ser d'une image à une autre, à la façon du générique de THALASSA. 


Laurence MARZIN et Didier PAILLARD 


NORRRARARRRRRR AR ARR RRRÉARERERRRAR EX 


‘* Interpol, (C)1990 D.Paillard * 
NORARARRREARARRARARARRRRRÉARERERARRRRR 
init 
DO 

ON MENU 
LOOP 
PROCEDURE init 

RESERVE 200000 

\ 


maxt=100 

DIM m$(26),x% (max$) , y% (max$), lig$ (max$,3) , tab# 
(mx$, 7) 

A 


image$=SPACES (32066) 
pimage$=STRINGS (16000, 0) 
à | 


RESTORE 
FOR i$=0 TO 26 
READ m$(i$) 
NEXT 1% 
MENU m$ () 
ON MENU GOSUB evaluation 
A 
OPENW 0 
scroll 
PRINT “Bienvenue dans INTERPOL" 
4 


raz 
refresh 
1 
DATA Bureau, Information, ,1,2,3,4/5,6 
DATA Fichier,- Calque —-, Charger, Effacer, 
DATA - Animation -, Charger, Sauver, g 
DATA Quitter,Edition, Points , Lignes , 
DATA Effacer,Animation, Démarrer , 

RETURN 

PROCEDURE quitte 
scroll 
scroll 
PRINT “Fin du programme 2?" 
1 





ALERT 3,"Voulez-vous quitter|le 
programme ?”,2, "Oui Non”, rep} 


PROCEDURE scroll 
BMOVE XB1OS(2)+2960,XB1OS (2) +1680, 12800 
PRINT AT(1, 11); SPACES (80); 
PRINT AT(1,11); 
RETURN 
PROCEDURE evaluation 
MENU OFF 


ALERT 0," 
L.Marzin & D.Paillard 

CASE 12 

load calque 
CASE 13 

efface calque 
CASE 15 

@load_animat 
CASE 16 

save animat 
CASE 18 

âquitte 
CASE 21 

saisie pt 
CASE 22 

saisie lig 
CASE 23 

êraz 

@refresh 
CASE 26 


Interpolations| (c) février 1990 
°,1," Ok ‘, dummy$ 


PROCEDURE raz 
FOR i$=0 TO maxt 
x% (1%)=-1 
lig$(i$,0)=-1 
NEXT i$ 
RETURN 
PROCEDURE load calque 
LOCAL nom$,c$,1%,3)%,v%,y%,z%,w%,r$ 
A 


scroll 

scroll 

PRINT “Chargement d'un calque” 
| 


DO 
FILESELECT “\*.pi3","",nom$ 
IF RIGHTS (nom$) <>”\" 

c?=0 
ENDIF 
LOOP UNTIL c$=0 
A 


IF nom<>"" 
scroll 
PRINT “Nom du calque : “;:nom$ 
L 


winselect 

BLOAD nom$, V: images 

scroll 

PRINT “Patientez environ 30 secondes. Réduction 
de l'image” 

A 


r$=ADD (V: image$, 34) 
FOR i$=0 TO 199 
FOR j+=0 TO 39 STEP 2 










v$=ADD (MUL(1i$, 80), 3%) 

y$=ADD(r$, SHL(v$, 1)) 

Z$=OR (LPEEK (y%) , LPEEK (ADD (y$, 80))) 

2%=OR (2%, SHR(2%,1)) 

W$=OR (OR (OR (AND (z%,1),AND(SHR(z%,1),2)), 
AND(SHR(2%,2),4)),AND(SHR(z#%,3),8)) 

W$=OR (OR (OR (w%, AND (SHR (2%, 4) , 16) } , AND (SHR 
(28,5),32)),AND(SHR (2%, 6), 64)) 


W$=OR (OR (OR (w%, AND (SHR (2%, 7), 128)) , AND (SHR 


(28,8),256)),AND(SHR(z8,9),512)) 
W$=OR (OR (OR (w%, AND (SHR (z%, 10), 1024)},AND 
(SHR (z$,11),2048)),AND(SHR (2%, 12),4096)) 
W%=OR (OR (OR (w%, AND (SHR (z%, 13) ,8192)} , AND 
(SHR (2%, 14), 16384) ),AND(SHR (28, 15),32768)) 
DPOKE dest$,w$ 
ADD dest#,2 
NEXT jé 
ADD dest#, 40 
NEXT i$ 
refresh 
ELSE 
scroll 
PRINT “Pas de chargement” 
ENDIF 
RETURN 
PROCEDURE efface calque 
scroll 
scroll 
PRINT “Effacement d'un calque” 
\ 


winselect 
FOR i$=0 TO 199 
FOR j#=0 TO 39 STEP 4 
LPOKE dest%,0 
ADD dest#, 4 
NEXT j$ 
ADD dest#,40 


PROCEDURE load animat 
LOCAL c$,i$%, j%,nom$ 
cè=-1 
1 


scroll 

scroll 

PRINT “Chargement d'un fichier animation” 
\ 


Do 
FILESELECT “\*,ANA","",nom$ 
IF RIGHTS (nom$) <>'\" 
ct=0 
ENDIF 
LOOP UNTIL c$=0 
1 


IF nom$<>"” 
scroll 
PRINT “Sous le nom : “;nom$ 
L: 


OPEN "i”,#1,nom$ 
FOR i%=0 TO max$ 
INPUT #1,x%(i%) 
INPUT #1,y#(i%) 
NEXT i$ 
FOR i$=0 TO max$ 
INPUT #1,1ig% (1%, 0) 
INPUT #1,1ig%(1%,1) 
INPUT #1,1ig%(i%,2) 
INPUT #1,1ig%(i$%,3) 
NEXT i$ 
CLOSE #1 
refresh 
ELSE 
scroll 
PRINT “Pas de chargement” 
ENDIF 
RETURN 
PROCEDURE save _animat 
LOCAL c$,i$,nom$ 
A 


scroll 

scroll 

PRINT "Sauvegarde d'un fichier d'animation" 
L 


c$=-1 
DO 

FILESELECT “\*.ANA",“”,nomS 

IF RIGHTS (nom$) <>"\" 
c+=0 

ENDIF 

LOOP UNTIL c+=0 
) | 
IF nom$©"" 

scroll 

PRINT “Fichier sauvé sous le nom : 

4 

OPEN “o”,#1,nom$ 

FOR i%=0 TO max$ 
PRINT #1,x$ (1%) 
PRINT #1,y$(is) 

NEXT 1% 

FOR i$=0 TO max$ 
PRINT #1,1ig#(it,0) 
PRINT #1,lig#(i$,1}) 
PRINT #1,1ig#$(1%,2) 
PRINT #1,lig#$(i%,3) 

NEXT i$ 


“;nom$ 


scroll 
PRINT “Pas de sauvegarde" 
ENDIF 
RETURN 
PROCEDURE saisie pt 





SETMOUSE 319,299 
L 


scroll 

scroll 

PRINT “Saisie des points :" 

scroll 

PRINT “Cliquez pour saisir un nouveau point, ou 
recliquez sur un ancien point, 

scroll 

PRINT “pour l'effacer (efface aussi les lignes 
concernées) . 

scroll 

scroll 

PRÈIE “Cliquez sur le bouton droit pour sortir." 


GRAPHMODE 3 
Do 
tst_mouse 
IF mk#=1 
mxs $=mx$-3 
mxi$=mx$+3 
mys+=my$-3 
myi$=my$+3 
mŸ=-1 
1-0 


IF x$(1%)>mxs$ AND x$(1%)<mxi$ AND y#(1%) 
Dmys$ AND y$(i8) <myi$ 
mé=it 
ENDIF 
INC i$ 
LOOP UNTIL mb<>-1 OR i$%=max$ 
IF mè=-1 
ct=—1 
i4=0 
DO 
IF x$(i$)=—1 
X$(14) =mx$ 
v$ (15) =my$ 
ct=0 
PLOT mxs$,mys 
BOX mxs$,mys$,mxis,myi 
ENIF 
INC i$ 
LOOP UNTIL c$=0 OR 1%=maxt 
ELSE 
PLOT x% (m$) -3,y% (m$) -3 
BOX x$(m$)-3,y%(m$)-3,x% (m$)+3,y# (m$) +3 
FOR j$=0 TO max$ à 
IF lig#(3$,0) ©>-1 
IF 11g$(j%,0)=m$ OR lig$(j$,1)=m$ OR 
lig#(j#,2)=m$ OR lig#$(j$,3)=mê 
LINE x%(lig$(j%,0)),y#%(lig®%()%,0)),x% 
(ig$(j8,1)),y#(lig$(5$,1)) 
LINE x$(lig$(%,2)),vy%(lig%(j#,2)),x% 
(lig$(38,3)),y#(lig8(j#,3)) 
lig$($,0)=-1 
ENDIF 
ENDIF 
NEXT j$ 
x$ (m$)=-1 
ENDIF 
DO 
tst_mouse 
LOOP UNTIL mk%=0 
ENDIF 
LOOP UNTIL MOUSEK= 
GRAPHMODE 1 
DEFMOUSE 0 





scroll 

PRINT “Fin d'édition de points" 
RETURN 
PROCEDURE saisie lig 

DEFMOUSE 5 

L 

scroll 

scroll 

PRINT “Saisie d'une ligne :” 

scroll 

PRINT “Cliquez successivement sur deux points 
dans la fenêtre de départ” 

scroll 

PRINT “pour définir la ligne de départ, puis sur 
deux points dans la fenêtre” 

scroll 

PRINT “d'arrivée pour la ligne d'arrivée, Et 
ainsi de suite..." 

scroll 

scroll 

PRINT “Cliquez sur le bouton droit pour sortir." 

à) 


GRAPHMODE 3 
DO 
tst_mouse 
IF mk$=1 
m=-1 
1$=0 
DO 
IF x$(i%)<320 AND x$(i#%)>mx$-6 AND 
X% (15) <mx$+6 AND y$(i%)>my#-6 AND y (1%) <my$+6 
mé=it 
depl$=m$ 
ENDIF 
INC i4 
LOOP UNTIL m$<>=1 OR i$=maxt 
IF mi<>-1 
DO 
LOOP UNTIL MOUSEK=0 
smx$=xt (m$) 
sny$=y$ (m+) 
DO 
DO 
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tst_ mouse 
LINE x%(m$),y${mt),smx$, smy$ 
LINE x%(m$),y%{m$) ,mx$,my$ 
sx $=mx$ 
snyt=-my$ 
LOOP UNTIL mk%=1 
n$=-1 
3%=0 
DO 
IF x$(j$)<320 AND x$(j%)>mx$-6 AND 
x#(j$) mx3+6 AND y#(33)>my#-6 AND y$(33) <my3#6 
n$=j$ 
arrl$=n$ 
ENDIF 
INC j$ 
LOOP UNTIL n$<>-1 OR j5=max$ 
LOOP UNTIL n$<>-1 
LINE x%(m%),y%(m$),smxt, smy®% 
LINE x%(m6),y%im#),x%(n%),y#(nt) 
DO 
LOOP UNTIL MOUSEK=0 
DO 
DO 
tst_mouse 
LOOP UNTIL mk%=1 
mt=-1l 
14=0 
DO 
IF x%(1$%)>319 AND x#(1#)>mx$-6 AND 
x#(18) <mx8+6 AND y#(18)>my$#-6 AND y8(i$)<my8+6 
mé=i$ 
dep2%=m$ 
ENDIF 
INC i% 
LOOP UNTIL mb<>-1 OR i$-max$ 
LOOP UNTIL m$<>-1 
DO 
LOOP UNTIL MOUSEK=0 
smx$=x$ (m$) 
smy#=y$ (mé) 
DO 
DO 
tst_mouse 
LINE x%(m$),y%(m%),smx%, smy$ 
LINE x%4(m$),y%(m$) ,mx$,my® 
sx Ÿ=mxt 


À 2 fl 


IF x$(j%)>319 AND x%(j%)>mxt-6 AND 
x#(38) <mx$+6 AND y#(j8)>my$-6 AND y(33) <my#+6 
n#=j$ 
arr2%=n$ 
ENDIF 
INC jt 
LOOP UNTIL n$<>-1 OR j$=max$ 
LOOP UNTIL n$<>-1 
LINE x% (m6) ,y%(m$),smx$, smy* 
LINE x$ (m6) ,y%{m$),x% (n$) , y (nt) 
DO 
LOOP UNTIL MOUSEK=0 
1%=0 
c+=-1l 
DO 
IF lig$(i$%,0)=depl% AND lig%(i%,l)=arr1% 
AND lig#(it,2)=dep2#% AND lig$(i$,3)=arr2t 
1ig$(14,0)=-1 
ct=0 
ENIF 
INC i$ 
LOOP UNTIL c$=0 OR i$=-max 
14=0 
cè—1 
DO 
IF lig$(it,0)=1 
lig$ (1%,0)=depl1# 
lig$(it,1)=arrl% 
ligt(1$,2)=dep2% 
lig$ (i$,3)=arr2% 
cè=0 
ENDIF 
INC i$ 
LOOP UNTIL c$=0 OR i%5=-maxt 
ENDIF 
ENDIF 
LOOP UNTIL mk$=2 
DEFMOUSE 0 
GRAPHMODE 1 
4 
scroll 
PRINT “Fin d'édition de ligne" 
RETURN 
PROCEDURE animate 
LOCAL i%,)%,x1%,y1%,x2%,y2%, adrbuf1$, adrbuf25, 
adrbuf33,buffer1$,buffer2#,buffer3%, sauv ecrant, 
ecran$, logiques 
31 
| 


scroll 

scroll 

PRINT “Réalise l'interpolation entre l'image de 
début et l’image de fin en une” 

scroll 

PRINT “en une vingtaine d'étapes." 

scroll 

scroll 

PRINT “Cliquez pour commencer..." 

A 


suite en page 11 





SPACE 19 


A bord de votre vaisseau spatial, dégommez tout obstacle fonçant sur 
vous. Entre chaque tableau, passez au magasin pour améliorer votre équi- 
pement (vous gagnez de l'argent pour chaque obstacle détruit). 





LES DECODEURS SoNT En 


DENEB (Zap Creation) VENTE A PRESSIMAGE 














VOID XBIOS (7,0,0) *XB10S (7, 1, &H750) *XBIOS (7,2, 6H640) READ vse$ DATA 10,14,7,300 ENDIF 
*XBIOS (7, 3, &H530) *XBIOS (7, 4, &H420) *XBIOS (7, 5, &H310) READ mtim$ DATA 15,14,7,400 FOR i$=0 TO n$ 
*XBIOS (7,15,6H777) *XBIOS (7, 6,8H337) *XBI0S(7,7,6H447)  mid: DATA 20,14,7,450 txt=xt 
*XB1IOS (7,8, &H557) n$=m$ PROCEDURE sync tyt=yt 
DEFTEXT 1,0,0,32 FOR i$=0 TO n$ SWAP i14,i2% t1x=26 
TEXT 80,90,"SPACE 19” vx$ (1$)=RANDOM (ve$) -vse$ VOID XBIOS(5,L:11%,L:i2%,-1) tly#=16 
PRINT AT(7,20);”PAR DENEB(2C) LE 31/5/91" IF vx (it)=0 RETURN b'=RC_INTERSECT (ex® (14) ,ey# (i%),8,8,Ex$,ty4, 
DO vx$ (i$)=1 PROCEDURE joy tlx$, tly$) 
FOR i%=712 TO 789 ENDIF IF STICK(1}=8 OR STICK(1)=9 OR STICK(1)=10 AND x$<290 IF b! 
SETOOLOR 0,ADD(i%,m) vy% (15) =RANDOM (ve$) -vse$ ADD x$,v$ : DEC li$ 
NEXT i$ IF vy#(i$)=0 ELSE IF STICK(1)=4 OR STICK(1)=5 OR STICK(1)=6 o00$=1 
INC m$ vy$(i%)=1 AND x8>4 PRINT CHR$ (7) 
VSYNC ENDIF SUB x$, v$ ENDIF 
LOOP UNTIL INP(-2) ey*(i#)=0 ENDIF NEXT i3 
SETCOLOR 0,0 ex$ (14) =0 IF STICK(1)=2 OR STICK(1)=6 OR STICK(1)=10 AND RETURN 
STICK 0 NEXT i$ y#<184 PROCEDURE mag 
z%=XB10S (2) CLR tim$ ADD y$,vé CLS 
FOR it=0 TO 16 x$=160 ELSE IF STICK(1)=1 OR STICK(1)=9 OR STICK(1)=5 PRINT AT (15,1) ; "MAGASIN" 
READ t# y$=100 AND y3>4 PRINT 
LPOKE (2%+1%*160) ,t% 00%=0 SUB y$,v$ PRINT 
READ t# TEXT 100,90, "LEVEL * ENDIF PRINT “l-enegie{+10) 10" 
LPOKE (2%+4+1%*160),t% TEXT 130,125, lev#%+l 1'=FALSE PRINT “2-energie (+20) 15" 
READ t# PRINT AT(14,20) ; "PRESS FIRE" IF STRIG(1) AND ent>0 PRINT “3-vitesse (+1) 10” 
LPOKE (2%+8+1%*160),t34 REPEAT IF y$-1y#0 PRINT “4-tire (+1) 3e 
READ t4 UNTIL STRIG(1) ALINE x$+14,y9-1y, x8+14,y#,2,-1,1 PRINT 
LPOKE (2%+12+1%*160) ,t# CLS ELSE PRINT “10-FIN" 
READ t$ DO ALINE x#$+14,0,x%+14,Y%,2,-1,1 r: 
LPOKE (24+16+19#160),t$ SPUT f$ ENDIF LOCATE 1,15 
NEXT i$ &joy DEC en$ PRINT “ENERGIE (tir) : “:en$;” 
DATA 131078,65536,-2147418111,-2147352576 &int 1'=TRUE PRINT “ARGENT : “rarg$:", * 
DATA -2147450880 £en ENDIF LOCATE 1,20 
DATA 655382, 65536,1074135046,-1073676288, 536928256 PRINT AT(1,1);"TIR:";en$;" SOU:";arg$; RETURN INPUT “VOTRE CHOIX : “,ch# 
DATA 1703974,65536, 537198597,-536215552, 1073782784 " SCO:";sco8;" TIME:”;mtimt-timé;" VIE: "lis" PROCEDURE en IF ch$=1 AND arg$>=10 
DATA 3801158,65536,269025289,-268042240, 268496896 PUT x$,y$,s$ FOR 1$=0 TO n$ ADD en3, 10 
DATA 3670080,7,786440,-267976704,-805253120 Esync 1F ex%(1$)>330 SUB arg3, 10 
DATA 1081286787,196620,-2012839836 INC tim$ ex$(i$)=-8 ELSE IF ch#=2 AND arg#>=29 
DATA -133496832,536879104,-1862831865, 458760 EXIT IF tim$-mtim$ OR n$<0 OR o00%=1 ENDIF ADD en$,20 
DATA 1540342,-134152192, 1610637312 LOOP IF ey#(1t)>208 SUB arg%,20 
DATA -1577623033,268894216, 70353137,-134086656 IF o0%=1 AND 1140 ey$(it)=-8 ELSE IF ch#=3 AND arg#$>=10 AND v$<7 
DATA -2147450880 VOID XBIOS(5,L:11%,L:i1%,-1) ENDIF ADD v$,1 
DATA -1544067833,268894216,35685600,-133169152, 0 CLS IF ex$(i4)<-8 SUB arg$, 10 
DATA -1476891889,269418496, 18908896,-133169152, 0 en$=100 ex$(1$)=330 ELSE IF ch$=4 AND arg#>=3 
DATA 1074104570, 65536,111150944,-133169152, 0 GOTO mid ENDIF ADD 1ly$,1 
DATA -1124434938, 50397184, 18874848, -32505856, 0 ENDIF IF ey$(14)<-8 SUB arg$,3 
DATA -1141212922, 100728832,44040416,-15728640, 0 IF n$>=0 OR 1i$-0 ey$(14)=208 ENDIF 
DATA -1308987130, 134283264,69206112,-40894464,0 &go ENDIF IF ch$@10 
DATA 1577426682, 268500992, 69206240, -66060288, 0 LOCATE 7,20 ADD ext (1%) ,vx$ (14) GOTO r 
DATA 569565454, 268500992, 69206240, -66060288, 0 INPUT “UNE AUTRE PARTIE ? {O/N)",ppp$ ADD ey$(i$),vy$(it) ENDIF 
DATA 7188020738, 805371904,-53477184,-63963136, 0 EXIT IF ppp$<>"n” AND ppp$<>"N" PUT ex$(i$) ,ey%(i$),b$ CLS 
GET 0,0,27,16,5$ EDIT NEXT i$ RETURN 
GET 28,0,35,7,b$ ELSE RETURN PROCEDURE go 
DEFTEXT 1,0,0,32 VOID XBIOS(5,L:i1$,L:i1%,-1) PROCEDURE int VOID XBIOS(5,L:11$%,L:i1%,-1) 
CLS DO IF L'=TRUE LOCATE 20,10 
DIM iop| (32255) EXIT IF mtim$-tim$<il FOR i$=0 TO n% TEXT 80,110, "GAME OVER" 
11#=XBIOS (3) INC tim$ tx$=x$+14 RETURN 
12%=(VARPTR (iop|(0)}+255) AND &HFFFFO0 INC sco$ tyt=y5-1ys 
n$=25 PRINT AT(1,1);"TIR:";en$;" SOU:";arg$; tlxt=1 
DIM vx$ (n$) ,vy$ (n$) ,ex$ (n$) ,ey#(n$) " SCO:";scot;" TIME:";mtim$-timé;" VIE:";li8" tlyt=1ys 
deb: LOOP b'=RC_INTERSECT (ex$ (1%) ,ey%(1%),8,8,tx$,ty8, 
RESTORE dat PAUSE 50 tix8,tly8) 
1y$=20 êmag IF b! 
v4=4 ENDIF SOUND 1,15, #10000 
argt=0 PAUSE 20 PAUSE 1 
en$=100 NEXT Levi SOUND 1,0,0,0 
1i$=15 CLS DELETE ex$ (14) 
FOR lev#=0 TO 10 GOTO deb DELETE ey$ (i$) 
SETCOLOR 14, lev#$*166 dat : DELETE vx$ (it) 
FOR it=0 TO 100+{lev#*25) DATA 5,10,5,350 DELETE vy# (i$) 
PSET RANDOM (320) , RANDOM (200) , 14 DATA 10,10,5,600 ADD arg$, 10 S ANS 5 UG 
NEXT i4 DATA 3,10,3, 140 ADD scot, 10 
SGET £$ DATA 0,0,5, 60 DEC n# 
READ mt DATA 8,8,4,200 ENDIF 
READ vet DATA 8,15,5, 300 NEXT i$ 
INTERPOL adrbuf3#-GEMDOS (72, L : 32256) LOOP UNTIL MOUSEK=2 scroll 
buffer3%={(adrbuf3% AND &HFFFFO00) +256 Ü PRINT “Cliquez dans la fenêtre de votre 
HIDEM SHOWM choix... "; 
suite de la page 10 ecran$=XBIOS (2) -XBIOS (5,L:ecran$, L:ecran$,W:-1) L 
“XB10S (5,L:buffer1%,L:-1,W:-1) -GEMDOS (73,L:adrbuf1#) Do 
FOR i$=0 TO maxt logique#=buffer1% -GEMDOS (73,L:adrbuf24) LOOP UNTIL MOUSEK=] 
IF lig${i$,0)<>-1 CLOSENW. 0 -GEMDOS (73,L:adrbuf34) Do 
INC 5% { BMOVE sauv_ecran#, XBIOS (2), 32000 LOOP UNTIL MOUSEK=0 
tab$ (j%,0)=MUL (x%{lig$ (i%,0)),2) FOR k$%=0 TO 20 *GEMDOS(73,L:sauv ecrant) 1 
tab (3%, 1)=MUL (SUB (y#(ligt(i%,0)),181),2) coef=1-COS (P1/2/20*k3) RETURN IF MOUSEY>160 
tab%(jt,2)=MUL(x$(lig$(i$,1)),2) CLS PROCEDURE refresh IF MOUSEX<320 
tab% (j%,3)=MUL (SUB (y$(1ig%(i$,1)),181),2) FOR 1%=0 TO j4 LOCAL i% dest$=V:pimages 
tab (j%,4)=SUB (MUL (SUB (x% (1ig#(i$,2)),320), x1%=tab$(1%,0)+coeftabs (14,4) ' ct=0 
2),tab#(j8,0)) ylt=tab$(1%,1)+coefttabs (14,5) LINE 0,179,639,179 Y 
tab% (j%,5)=SUB (MUL (SUB (y% (1ig$(i$,2)),181), X2%=tab#(1%,2)+coef*tab4 (14, 6) LINE 0,180,639,180 PRINT “Sélection de la fenetre de départ” 
2),tab$(53,1)) Y2%=tab$(1$,3) +coef*tab# (1%, 7) BMOVE V:pimage$, ADD (XBIOS (2), 16000), 16000 ELSE IF MOUSEX>319 
: tab#(j$,6)=SUB (MUL (SUB(x# (lig® (19, 3)),320), LINE x1%,y1%,x2%, y25 LINE 319,181,319,380 dest?=V:pimage$ +40 
2),tab#(j8,2)) NEXT 14 LINE 320,181, 320, 380 ct=0 
tab$ (3%, 7)=SUB (MUL (SUB (y$ (lig®(it,3)),181), 1F logique#-buffer1# FOR i%=0 TO max$ \ 
2),tab8 (58, 3)) logiquet=buffer2% IF x${i4) >-1 PRINT “Sélection de la fenêtre d'arrivée” 
ENDIF *XB10S(5,L:buffer2%, L:buffer1%,W:-1) BOX X6(1%)-3,y5(14)=3, x$ (15) +3, 4 (18) +3 ENDIF 
NEXT i$ ELSE ENDIF ENDIF 
Y IF logiquet-buffer23 NEXT i$ LOOP UNTIL c#=0 
DO logiquet-buffer3t FOR i$=0 TO max RETURN 
LOOP UNTIL MOUSEK=] *XB10S(5, L:buffer3%,L:buffer24,W:-1) IF lig$(i$,0)<>-1 PROCEDURE tst mouse 
DO ELSE LINE x$(lig${it,0)),y#$(lig$(it,0)),x${lig® MOUSE mx, my$,mk4 
LOOP UNTIL MOUSEK=0 logique#=buffer1$ (i8,1)),y8(lig#(i8,1)) IF myt<181 
\ *XB10S(5,L:bufferl#,L:buffer3$,W:-1) LINE x$(lig$(i$,2)),y#(lig$(i%,2)),x4(ligt my$=181 
sauv_ecran%=GEMDOS (72, L:32000) ENDIF (18,3)),y#(lig8(i8,3)) SETMOUSE mx#$,my#+19 
BMOVE XBIOS (2) , sauv_ecran*, 32000 ENDI+ SA ENDIF ENDIF 
adrbuf1#=GEMDOS (72,1: 32256) NEXT k4 LE NEXT 13 het vRg = 
buffer1$=(adrbuflt AND sHFFFF00)+256 OPENW 0 ’ RETURN 
adrbuf2%=GEMDOS (72,L:32256) ‘ té: W PROCEDURE winselect 
buffer2%={(adrbuf2% AND &HFFFF00)+256 DO DO 
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MIDI BUF 


Retrouvez ST Magazine n°47. C'est bon, vous 
l'avez? Ok, on y parle d'une interface pour trans- 
former la sortie MIDI en simili-RS. Voici la routine 
qui va avec, et un exemple d'utilisation (envoi de 
pages sur les deux RS) 


Emmanuel TALMY (NCC1701) 


REM RARRRRRRRRARARRRARRRRRRRÉARÉRRRRARRRRRRARÉRARRRÉRÉRRRRRRÉARÉER 


REM ** Exemple d'utilisation de la routine MIDI BUF pour ** 
REM ** gérer deux Minitels sur les interfaces RS232 et MIDI. ** 


REM ** (C)Avril 1991 par NCC1701 +** 
FOUR LLLELILELELELCLELLLELLELEELELLELLLLIS EL CELELCLELCLEECLCES ELLE 


$c+ 
RESERVE -30000 ! Libère 30Ko de mémoire 
1 
Le INLINE ci-dessous contient la routine MIDI BUF.INL 
INLINE midi$,1104 
\ Définition des la taille des tampons utilisés pour l'exemple 
in sizes=512 ! Tampons IN de 0,5 Ko 
out_sizeg=3000 ! Tampons OUT de 3 Ko 
Chargement des fichiers VID de démonstration (10 maxi) 
DIM vid addr#%(9), vid length (9),vid names (9) 
REPEAT 
vid counté=êvid load ! Charge les fichiers VID (10 maxi) 
IF vid count£=0 THEN ! SI aucun fichier VID, 
ALERT 3,"| Aucun fichier VID trouvé! |",1,"STOP| ENCORE”, voide 
ENDIF 
UNTIL vid count&>0 OR voidé=1 
IF vid counté>0 THEN ! SI fichiers VID chargés, 
‘ Installation et configuration des interfaces RS232 et MIDI 
rs_install(in sizes,out_sizeé) 
PRINT “Tapez sur le Minitel la numéro de page souhaité. .."; 
TITLEW #1,” PAGES ENVOYEES (clic pour arrêter) * 
OPENW 41,0, WORK OUT (1) \2, WORK OUT (0) , WORK OUT {1} \2, &X1 
Boucle principale : 
\ On teste l'arrivée d'un caractère sur les deux interfaces 
 RS232 et MIDI. Si c'est un chiffre correspondant à une des 
\ pages VID chargées, on envoie cette page sur l'interface. 
REPEAT ! Boucle 
input_test (1) ! Teste la RS232 {port 1) 
input_test (3) ! Teste la MIDI {port 3) 
UNTIL MOUSEK ! Arrêt si clic souris 


esc$=CHR$ (27) 
* Libère la mémoire des images VID 
vid unload 
\ Restaure l'état standard des interfaces RS232 et MIDI 
rs desinstall 
ENDIF 
RESERVE 
END 
LU 
FUNCTION vid_load ! Recherche et charge les fichiers VID 
LOCAL dta addr$,es,vid_ indexé 
CLS 
PRINT esc$;“p Recherche et chargement des fichiers VID “;esc$;"q" 
PRINT 
vid_indexe=0 
dta_addr4=FGETDTA (} 
e6=FSFIRST ("*.VID",0) 
DO WHILE es=0 
vid name$ (vid_ index£)=CHAR(dta addr++30} 
OPEN “1”, #1,vid name$(vid_ indexé) 
vid length (vid_index£)=LOF (#1) 
IF MALLOC(-1)>LOF (#1) THEN 
PRINT “Fichier n°";vid_ indexé; TAB (15) ;vid_name$ 
(vid_indexé);TAB(30) vid lengthé (vid indexé) ;" octets”; 
vid_addr%{(vid_index£)=MALLOC (LOF (#1)) 
BGET fl,vid addr% (vid indexé}, LOF (#1) 
INC vid_indexé 
PRINT *...OK !” 
ENDIF 
CLOSE #1 
eg=FSNEXT() 
LOOP UNTIL vid_indexé=10 
RETURN vid_indexs 
ENDFUNC 
PROCEDURE vid_unload 
LOCAL vid_index£ 
vid index£=vid counts 
WHILE vid_index&>0 
DEC vid_indexé 
-MFREE (vid_addr${(vid_indexé) ) 
WEND 
RETURN 
Y #* Les deux Minitels sont supposés être à 1200 bauds au départ 
PROCEDURE rs_install(in size&,out size&)! Installation globale 
LOCAL confé, in buffert,out buffer 
* ** Initialisation RS232 
@save_rs232 ! Mémorise les tampons standards RS232 
in buffer$=MALLOC(in_size£) ! Alloue le tampon IN RS232 
{XB10S (14,0) }=in buffer ! Adresse et taille tampon IN 
INT{XBIOS{(14,0)+4}=in sizee ! dans le IOREC RS232 
out_buffert=MALLOC(out_sizes) ! Alloue le tampon OUT RS232 
1 
u 


! Supprime les fichiers VID en mémoire 


{XB10S (14,0)+14}=out buffer? Adresse et taille tampon OUT 
INT{XBIOS(14,0)+18}=out sizes ! dans le IOREC RS232 
\ ** Initialisation MIDI 
in buffer#-MALLOC (in size£)  ! Alloue le tampon IN MIDI 
out _buffer$=MALLOC(out_size£) ! Alloue le tampon OUT MIDI 
* ** Choix de la configuration des vitesses 
conf£=FORM ALERT(0,*[0]{(1 Configuration RS232-MIDI |] 
[1200-1200/4800-1200 4800-4800] ") 
rs232 speed (1200) ! RS232 à 1200 bauds par défaut 
SELECT confg 
CASE 1 ! 1200/1200 
\ ** MIDI à 1200 bauds (= RS232) 
-C:midi$(1,0,2,L:in buffert,in sizes, L:out buffert,out size) 
CASE 2 ! 4800/1200 
set_speed(1,4800) ! Minitel RS232 à 4800 bauds 
rs232 speed (4800) ! RS232 à 4800 bauds 
\ ** MIDI à 4800/4=1200 bauds 








-C:midi$(2,0,2,L:in buffer$,in sizes, L:out buffer$,out sizes) 
CASE 3 — ! 4800/4800 
\ ** MIDI à 1200 bauds (=RS232) 
-C:midi$(1,0,2,L:in buffer*,in sizes,L:out buffer*,out sizes) 
set_speed(1,4800) ! Minitel RS232 à 4800 bauds 
set_speed(3,4800) ! Minitel MIDI à 4800 bauds 
rs232 speed (4800) ! RS232 et MIDI à 4800 bauds 
ENDSELECT 
set_screen(1, FALSE) 
@cls(1) ! Efface écran Minitel RS232 
set_screen(3,FALSE) 
êcis(3) ! Efface écran Minitel MIDI 
RETURN 


1 
PROCEDURE rs _desinstal]l 





! Restaure les ports standards 
desinstall (1) |! Libère les tampons RS232 
êrestore rs232 ! Restaure les tampons standards RS232 
desinstall (3) ! Libère les tampons MIDI 
rs232 speed (1200) ! RS232 à 1200 bauds 

1 


-C:midi$ (-1) Restaure le standard MIDI 
RETURN 
PROCEDURE desinstall({porté) ! Restaure l'état standard du 
port 


set_screen{porteé, TRUE) ! Reconnecte l'écran du Minitel 
set_speed(port&, 1200) ! Remet le Minitel en 1200 bauds 
REPEAT ! Attend le vidage du tampon OUT 
UNTIL êout_empty(porte} 
-MFREE ((XB1OS (14, PRED {port&))}) ! Libère le tampon IN du port 
-MFREE ( {XBIOS (14,PRED({port&)}+14}) ! Libère le tampon OUT 
RETURN 
1 
PROCEDURE input_test (porté) 
LOCAL vid_indexé 
\ SI char reçu sur le port et que le tampon de sortie est vide, 
IF INP?(ports) AND fout empty(porte) THEN 
vid index£=INP (port&)-48 ! Lecture du char reçu 
IF vid_index£>=0 AND vid indexé<vid count£ THEN 
* SI c’est un numéro K, 
vid output (port, vid indexé) 


! Teste entrées depuis un Minitel 


ELSE ! SINON, 
OUT porte, ? ! beep vers le Minitel 
ENDIF 
ENDIF 
RETURN 


PROCEDURE vid output (porté,vid_index£) ! Sortie page vers un mntl 
LOCAL start_addr$,end addr$, addrt 
PRINT “Emission de “;vid name$ (vid indexé) ;" sur la sortie *; 
IF porté=1 THEN 
PRINT “RS232..."; 
ELSE 
PRINT “MIDI...."; 
ENDIF 
start _addr-vid addr$ (vid indexé) 
end addrè=start addr$+vid_lengthé (vid indexé) -1 
FOR addr$=start addr$ TO end_addr4 
OUT port£,BYTE{addr*} 
NEXT addrt 
PRINT “terminée !" 
RETURN 
PROCEDURE save_rs232 
old_int={XB10S (14,0) } 
old_in&=INT{XBIOS (14,0) +4} 
old outt={xXB10S (14,0)+14} 
old outé=INT{XB10S (14,0) +18} 
RETURN 
PROCEDURE restore rs232  ! Restaure adresses RS232 standards 
{XB10S (14,0) }=old_in$ 
INT{XBI0S (14,0) +4]=0ld ins 
{XB10S (14,0)+14}=old out 
INT{XB1OS (14,0) +18}*old outs 
RETURN 
FUNCTION out_empty{porté) ! Teste si un tampon OUT est vide 
RETURN 
INT{XBIOS (14, PRED (porte) }+20}=INT{XBIOS (14, PRED {port &) } +22] 
ENDFUNC 


‘ 


! Sauvegarde adresses RS232 standards 


! Modifie la vitesse RS232 


PROCEDURE rs232 speed (speed£) 
SELECT speed 
CASE 75 

speedé=14 
CASE 300 

speedé=9 
CASE 4800 

speedé=2 
DEFAULT 

speedé=7 
ENDSELECT 
-XB10S (15, speedé,0,174,-1,-1,-1) ! Configuration pour le mtl 
PAUSE 5 
WHILE INP?(1) 

-INP (1) 
WEND 

RETURN 

PROCEDURE set_speed(port&,speedé) ! Modifie la vitesse du mtl 

SELECT speedé 
CASE 75 

speed£=8X1001001 
CASE 300 
speedé=£X1010010 
CASE 4800 
speedé=&x1110110 
DEFAULT 
speedé=&X1100100 
ENDSELECT 
OUT port, &H1B,&H3A,&H6B,speed£  ! Envoi de la commande 
PAUSE 5 





! Vide tampon RS232 IN 


12 


RETURN 

Modifie l’aiguillage Modem-Ecran 

PROCEDURE set_screen (porté, status!) 
OT port£&,£H1B,6H3B,6H60-status!,6H58,6H52 
void_inp{porte,5) ! Attend l'acquittement 


RETURN 
PROCEDURE cls (porté) 
OUT porté, 12 
RETURN 
PROCEDURE void _inp(porté,counte) ! Lecture des acquittements 
IF counté&<=0 THEN SI count=-1 
WHILE INP? (porté) vide le tampon IN 
WEND 
ELSE 
WHILE count &>0 
-INP (porte) 
DEC counts 


Efface écran Minitel 


SI count>0, 
lit le nombre d’octets requis 


ENDIF 





RARRRRARARRRRARÉRÉARRRÉARÉRÉRARÉÉ 


A 

L 

* * Programme créant le fichier * 
** MIDIBUF.INL, nécessaire à * 
** 1'INLINE du programme GFA * 
\ * (pour ceusses qui n’ont pas * 
\* d'assembleur avec eux... * 
VORRRRRERÉRRRÉRÉRRRRRRRRARÉARARÉAR RÉ 
1 


yepa_ligne=0 
OPEN “o“, #1, "MIDIBUF . INL" 
DO 
INC yepa_ligne 
yepa_check=0 
FOR yepa_yepa=l TO 16 
READ yepa_ donnees 
yepa_donnee=VAL ("£h"+#yepa_donnee$) 
EXIT IF yepa donnee$="-1" 
ADD yepa check, yepa donnee 
OUT #1,yepa donnee 
NEXT yepa_yepa 
EXIT IF yepa_donnee$="-1" 
READ yepa_ctrl$ 
IF VAL(*“&h"+yepa ctrl$)<>yepa check 
PRINT “Erreur de DATA en ligne “;yepa _ligne;"." 
PRINT “Vous n'êtes pas concentré..." 
END 
ENDIF 
PRINT “Ligne “;yepa ligne:” exploitÇe...";CHR$ (13) ; 
LOOP 
CLOSE #1 
DATA 60,1A,0,0,4,30,0,0,0,0,0,0,0,0,0,0,AE 
DATA 0,0,0,0,0,0,0,0,0,0,0,0,70,FF,4D, FA, 2B6 
DATA 4,0,4A,6F,0,4,6B,0,0,F2, 4A,2E, 0, 29,66, 0,325 x 
DATA 0,E8,3F,3C,0,22,4E,4E, 54,4F,20,40,2D, 68,0, 1C,3D5 
DATA 0,0,41,E8,0,1C,2D,48,0,4,1E, 3C,0,80,30,2F,2F7 
DATA 0,4,6E,2,70,1,C,40,0,2,6F,2,70,1,8E,0,2A3 
DATA 30,2F,0,8, 6A,2,10,2,C, 40,0,7,6F,2,10,2,27B 
DATA E5,40,8E,0,30,2F,0,6,6A,2,42,0,C,0,0,2,2D4 
DATA 6F,2,42,0,1D,40,0,28,C,0,0,2,66,4,8,C7,27F 
DATA 0,6,1D,47,0,2A,2D,6F,0,A,0,8,3D,6F,0,E, 1FC 
DATA 0,C,42,6E,0,E, 42, 6E, 0, 10, 3D, 7C,0, 40,0, 12,295 
DATA 3D,6F,0,E,0,14,4,6E,0,40,0,14,2D,6F,0, 10,240 
DATA 0,16,3D,6F,0,14,0,1A,42,6E,0,1C, 42,6E,0,1E,28A 
DATA 3D,7C,0,40,0,20,3D,6F,0,14,0,22,4,6E,0, 40, 2AD 
DATA 0,22,48,7A,0,AC,48,79,0,5,0,2D,4E, 4D, 50, 4F, 3BD 
DATA 2D, 40,FD,C6,48, 7A,0,F4,48,79,0,5,0,2E,4E, 4D, 575 
DATA 50,4F,2D, 40,FE, À, 48, 7A,0,48,3F,3C, 0,26, 4E, 4E, 45B 
DATA 5C,4F,50,EE,0,29, 70,0, 4E, 75,4A,2E, 0,29, 67,2E,47B 
DATA 48,7A,0,4E,3F,3C,0,26, 4E, 4E, 5C,4F,2F, 3A,0,B8,419 
DATA 48,79,0,5,0,2D, 4E, 4D,50,4F,2F,3A,0,EE, 48,79, 445 
DATA 0,5,0,2E,4E,4D, 50,4F,51,EE, 0,29, 70,0, 4E, 75, 408 
DATA 40,E7,0,7C,17,0,11,FC,0,3,FC, 4,20, 6E, 0,4,44C 
DATA 43,FA,1,C8,20,89,11,EE,0,2A,FC, 4, 46,DF, 4E, 75, 6C0 
DATA 40,E7,0,7C,7,0,11,FC,0,3,FC, 4,20, 6E, 0, 4,44C 
DATA 22,6E,0,0,20,89,11,FC,0,95,FC, 4,46,DF,4E, 75, 5C3 
DATA 41,EF,0,6,8,17,0,5,66,2,4E, 68,C, 90,0, 1,315 
DATA 0,3,66,6,61,0,0,88,4E, 73,C,90,0,2,0,3,2BA 
DATA 66,E,61,0,0, 7A, 4A,80,67,F8,61,0,0,9C, 4F, 73, 536 
DATA C,90,0,3,0,3,66,E,30,28,0,4,61,0,0,F4,2C7 
pATA 4A,80,6B,F4,4E, 73,C,90,0,8,0,3,66,6,61,0,45E 
DATA 0,5E,4E, 73,4E,F9,0,1,9,26,41,EF,0,6,8, 17, 3EB 
paTA 0,5,66,2,4E,68,C,50,0,C, 66, 1C, 32,28,0,2,269 
DATA 20,68,0,4,10,18,3F,0,61,0,0,B8,30, 1F,4A,80, 325 
DATA 6B,F4,51,C9,FF,F0,4E,73,C,90,0,E,0,2, 66,8, 643 
DATA 41,FA,2, 6,20,8,4E, 13,4E,F9,0,FC, 7,F2, 30, 3A, 5D2 
DATA 1,FE,B0, 7A, 1,FC, 56,C0, 48, 80, 48,C0,4E, 75, 30, 3A, 739 
DATA 1,FE, 52, 40,B0, 74,1,F4,66,2,70,0,B0, 7A, 1,EE, 6A1 
DATA 56,C0, 48, 80,48, C0, 4E, 75,40,E7,0,1C, 7,0, 48,E7, 682 
DATA 40,82, 4D,FA,1,BC,32,2E,0,E,B2, 6E,0, 10,67, 1A, 4E5 
DATA 52,41,B2,6E,0,C,65,2,72,0,70,0,20, 6E,0,8,39E 
DATA 10,30,10,0,3D,41,0,E,60,2,70,FF, 4A,2E,0,26,34B 
DATA 67,28,32,2E,0,10,92,6E,0,E,64,4,D2,6E,0,C, 3C1 
DATA B2,6E,0,12,66,14,2F,0,10,3C,0,11,61,0,0,14,2AD 
DATA 4A,80,6B,F4,20,1F,51,EE, 0,26, 4C,DF, 41,2, 46,DF, 660 
DATA 4E, 75,40,E7,0,7C,7,0,48,E7, 40,82, 4D,FA, 1,52, 5FB 
DATA 4A,2E,0,27,66,2A,32,2E,0, 1E,B2,6E, 0, 1C, 66,20,36F 
DATA 8,38,0,1,FC,4,67,18,11,C0,FC, 6,12,2E,0,2A, 3FD 


suite en page 13 





MIDI_BUF 


suite de la page 12 


DATA 8,81,0,6,8,C1,0,5,11,C1,FC,4,70,0,60,22,421 
DATA 52,41,B2,6E,0,1A,65,2, 72,0,B2,6E,0,1C,67,10,459 
DATA 20,6E,0,16,11,80,10,0,3D, 41,0,1E, 70,0, 60, 2, 2B3 
DATA 70,FF,4C,DF,41,2,46,DF, 4E,75,48,E7,C0, 82, 4D,FA, 87D 
DATA 0,F0,10,38,FC,4,8,0,0,7,67,32,8,0,0,0,2E8 

DATA 67,C,1D,40,0,24,3F,0,61,0,0,62,30,1F,8,0,24D 
DATA 0,1,67,C,1D,40,0,25,3F,0,61,0,0,1E,30,1F,203 
DATA 8,0,0,5,67,8,3F,0,61,0,0,A,30,1F, 4C,DF, 2A0 

DATA 41,3,4E,75,10,38,FC, 6, 4E, 75,42,2E,0,27,66, 24,43D 
DATA 32,2E,0,1C,B2,6E,0, 1E, 67, 1A, 52,41,B2, 6E, 0, 1A,408 
DATA 65,2,42,41,20,6E,0,16,11,F0,10,0,FC,6,3D,41,41F 
DATA 0,1C,60,6,11,EE,0,2A,FC, 4,4E, 75, 10,38,FC, 6, 4B8 
DATA C,2E,0,1,0,28,66,18,C,0,0,13,66,6,50,EE,2AA 
DATA 0,27,60,5A,C,0,0,11,66,6,51,EE,0,27,60,4E,37E 
DATA 32,2E,0,10,52,41,B2,6E,0,C,65,2,42,41,B2,6E, 439 
DATA 0,E,67,3A,20,6E,0,8,11,80,10,0,3D,41,0,10,274 
DATA C,2E,0,1,0,28,66,26,4A,2E,0,26,66,20, 92,6E, 313 
DATA 0,E,64,4,D2,6E,0,C,B2,6E, 0, 14,66, 10,10, 3C, 3B8 
DATA 0,13,61,0,FE, AE, 4A, 80, 6B,F4,50,EE, 0,26, 4E, 75,670 
DATA 0,FC,29,FC,0,0,E,2E,0,7,14,94,2,0,0,A,318 

DATA 0,13,0,40,1,C0,0, 7,16, 94,B,B8,5,2D,5,2D,2EC 
DATA 0,40,B,78,83,83,0,0,0,0,89,90,0,0,0,0,2E2 

DATA =] 


RRARRRRRRRRRRRRARRÉRRRRRARRARARRARARRERRRRRRÉRÉRRRÉEE 

* Gestion de tampons E/S pour l'interface MIDI. * 

* Complément à l'article “DOUBLE-RS” de ST-MAG 47. * 

* (C) Mars 1991 NCC1701 * 


RRRARARARERRRRARRRRRARARARARERARRRERARRRARLRERRRRREE 


* Adresses-systèmes utilisées 


ACIA Cntrl =$FFFFFC04 Registre de controle MIDI 
ACIA Status =$FFFFFCO4 Registre d'état MIDI 
ACIA Data =$FFFFFCO6 Registre de données MIDI 


* Fonctions BIOS/XBIOS utilisées 


BConStat=1 Etat d'entrée d'un périphérique 
Conin=2 Lecture sur un périphérique 

BConOut=3 Sortie sur un périphérique 

SetExec=5 Revectorisation des exceptions 
BCoStat=8 Etat de sortie d'un périphérique 
IORec=14 Adresse des IOREC RS232/Clavier/MIDI 
Midins=12 Envoi d’un chaine au MIDI 

KbdVBase=34 Vecteur des interruptions Clavier/Midi 
SupExec=38 Appel d’une routine en mode superviseur 
* Codes de commandes du protocole XON-XOFF 

XON=$11 

XOFF=$13 


* Des Macros pour la sauvegarde des registres 
push MACRO 
move.\0 \1,-(a7) 
ENDM 
Pop MACRO 
move.\0 (a7)+,\1 
ENDM 
pushm MACRO 
movem.\0 \1,-{a7) 
ENDM 
popm MACRO 
movem.\0 (a7)+,\1 
ENDM 


* Liste des paramètres attendus sur la pile 


RSRESET 
rs.l 1 
_midi speed rs.w 1 Code vitesse de transfert 
_midi handshake rs.w 1 Flag XON-XOFF 
_midi format rs.w 1 Format des données 
_midi_inbufferrs.1l 1 Adresse du tampon d'entrée 
_midi_ insize rs.w 1 Taille du tampon d'entrée 
_midi outbuffer rs.l 1 Adresse du tampon de sortie 
_midi outsize rs.w 1 Taille du tampon de sortie 
* 
RETURN CODE … EQUR DO 
VARBASE EQUR A6 
* 
moveq #-1,RETURN CODE Code erreur par défaut 
lea VarBase (pc), VARBASE Base des variables 
tst _midi_speed(a7) 
bmi MidiDesinstall 


* Mise en place dé la gestion de l’ACIA MIDI 
Midilnstall: 
tst.b MidiFlag (VARBASE) 
bne error 


SI déjà installé, 
retour avec erreur 


* Sauvegarde du vecteur d'interruption standard 


push #KbdVBase 

trap #14 

addq.w #2,a7 

move .l d0, a0 

move. ]l 28 (a0) , StndMidiVec (VARBASE) 
lea 28 (a0),a0 

move .l a0, AddrMidiVec (VARBASE) 


* Initialise octet de contrôle ACIA, 
* IRQ du récepteur activée, IRO du transmetteur inhibée 
* 


ACIA CONTROL  EQUR D? 


* 


move .b #$80,ACIA CONTROL 


* Bits 01 de controle ACIA selon la vitesse requise 
* Valeur 1, horloge/16, vitesse égale à la RS232 
* Valeur 2, horloge/64, vitesse 1/4 de la RS232 


+ 


MIDI_ SPEED EQUR DO 

* 
move _midi_speed{a7) ,MIDI SPEED 
bgt.s .speedl 
moveq #1,MIDI SPEED 

.speedl api #2,MIDI_ SPEED 
ble.s .speed2 
moveq #1, MIDI SPEED 

. speed? or.b MIDI SPEED, ACIA CONTROL 


* Bits 234 du controle ACIA selon le format requis 


* Valeur 2 par défaut, pour le minitel 
* 


MIDI FORMAT  EQUR DO 
L3 
rove _midi format (a7) ,MIDI_ FORMAT 
bpl.s .forml 
moveq #2,MIDI_ FORMAT 
form api #7,MIDI_ FORMAT 
ble.s .form2 
moveq #2,MIDI_ FORMAT 
. form asl #2,MIDI_FORMAT 
or.b MIDI FORMAT, ACIA CONTROL 


* Marque drapeau de protocole (0=rien/1=XON-XOFF/2=RTS CTS} 


MIDI _HAND EQUR Do 
* 
move _midi handshake (a7),MIDI HAND 
bpl.s -handl 
clr.b MIDI_HAND 
hand] cmpi.b #2,MIDI HAND 
ble.s -hand2 
clr.b MIDI_ HAND 
hand2 move .b MIDI_HAND, XMode (VARBASE) 
cmpi.b #2, MIDI HAND Si RTS/CTS, 
bne.s -hand3 la broche RTS sera 
bset 36,ACIA CONTROL haute hors-émission 
-hand3: 


move .b ACIA CONTROL, ACIACnt r1 (VARBASE) 


* Initialisation du IOREC d'entrée 


move. _midi_inbuffer(a7), InBuffer (VARBASE) 
move _midi insize(a7), InSize (VARBASE) 

cir InHead (VARBASE) 

cir InTail (VARBASE) 

move #64, InLow(VARBASE) 

move _midi_insize(a7), Inigh (VARBASE) 
subi #64, InHigh (VARBASE) 


* Initialisation du IOREC de sortie 


move. 1 _midi outbuffer(a7) ,OutBuffer (VARBASE) 
move _midi outsize(a?}) ,OutSize (VARBASE) 

cir OutHead (VARBASE) 

cir OutTai 1 (VARBASE) 

move #64, Out Low (VARBASE) 

move _midi_outsize (a7) ,OutHigh (VARBASE) 
subi #64,OutHigh (VARBASE) 


* Revectorise le BIOS et le XBIOS 


pea BIOS (pc) 

pea SetExec<<16+45 

trap 413 

addq.w #8,a7 

move.l d0,StndB10S+2-VarBase (VARBASE) 
pea XBIOS (pc) 

pea SetExec<<16+46 

trap 413 

addq.w 48,a7 

move.l d0,StndXBI0S+2-VarBase (VARBASE) 


* Initialise 1’ACIA et l'interruption MIDI 


pea SetACIA (pc) 
push #SupExec 
trap #14 


addq.w #6,a7 


* Marque routines installées, pas d'erreur 


st MidiFlag (VARBASE) 
moveq #0,RETURN CODE 
-ITor Its 


* Remise en place de la gestion standard du MIDI 
MidiDesinstall: 
tst.b MidiFlag (VARBASE) 
beq.s .eLr0r 


Déjà désinstallé ? 
retour avec erreur 


* Réinstalle l'ACIA et l'interruption MIDI standards 


pea ResetACIA(pc) 
push #SupExec 
trap #14 


addq.w #6,a7 


* Réinstalle les vecteurs BIOS et XBIOS standards 


push.1 StndB10S+2 (pc) 
pea SetExec<<16+45 
trap #13 


addq.w 48,a7 

push.1 StndXB105+2 (pc) 
pea SetExec<<16+46 
trap #13 

addq.w #8,a7 


* Marque routines désinstallées, pas d'erreur 


sf MidiFlag (VARBASE) 
moveq #0,RETURN_ CODE 
error rts 


* Mise en place des nouveaux paramètres ACIA 
SetACIA: 


13 


GFA ou 680007 





3615 STMAG 


Téléchargez ces 
listings déjà tapés. 





push st IPL=7 
ori #$700,sr 
move .b #3,ACIA Cntrl\w Reset ACIA 
move. 1 AddrMidiVec (VARBASE) ,a0 
lea MidiVec (pc) ,al Interruption MIDI 
move.l al, (a0) 
move.b ACIACntr] (VARBASE) #ACIA Cntrl\w Init ACIA 
Pop st 
rts 
* Remise en place des paramètres standard MIDI 
ResetACIA: 
push st IPL=7 
ori #$700,sr 
move.b #3,ACIA Cntrl\w Reset ACIA 
move. l AddrMidiVec ({VARBASE) , a0. 
move. 1 StndMidiVec{VARBASE) ,al 
move.l al, (a0) Interruption MIDI 
move .b #$95,ACIA Cntrl\w ACIA MIDI 
pop sr 
rts 


* Nouveau vecteur BIOS gérant les fonctions MIDI 
* 


PARM LIST  EQUR A0 


* 


BIOS lea 6(a7),PARM LIST Adresse paramètres 


btst #5, (a7) en mode superviseur 
bne.s bios1 
move. 1 usp,PARM LIST ou utilisateur 


* Etat d'entrée du MIDI ? 


biosl cmpi.l #BConStat<<16+3, (PARM LIST) 
bne.s bios2 
bsr MidilnStatus Lecture de l'état 
rte 


* Attente d'un caractère sur le MIDI ? 


bios2 cmpi .l #ConIn<<16+3, (PARM LIST) 
bne.s bios3 

wait bsr MidilnStatus Attend la présence 
tst.l d0 d'un caractère 
beq.s .wait 
bsr MidiGet Lecture du caractère 
rte 


* Envoi d’un caractère au MIDI ? 


bios3 cmpi.l #BConOut<<16+3, (PARM LIST) 
bne.s bios8 

.send move 4(PARM LIST), d0 

Tentative d'émission 
bsr MidiPut 
tst.l do jusqu'à ce que 
bmi.s .send ça passe 
rte 


* Etat de sortie du MIDI ? 


bios8 cmpi.l #BCoStat<<16+3, (PARM LIST} 
bne.s StndB10S 
bsr MidiOutStatus Lecture de l'état 
rte 


* Saut au BIOS standard pour les autres fonctions 
StndBIOS: 
jp $87654321 


* Nouveau vecteur XBIOS gérant les fonctions MIDI 


XBIOS lea 6(a7),PARM LIST Liste des paramètres 
btst #5, (a?) en mode superviseur 
bne.s xbios12 
move.]l usp,PARM_LIST ou utilisateur 


* Envoi d’une chaine de caractères au MIDI? 
* 


CHAR DECOUNT  EQUR pl 
STRING ADDR  EQUR A0 
* 
xbios12 api #MidiWS, (PARM LIST) 
bne.s xbios14 
move 2 (PARM_ LIST) ,CHAR DECOUNT 
décompteur 
move.l 4 (PARM LIST) ,STRING ADDR adresse 
.char move .b (STRING_ADDR) +, d0 caractère courant 
.send push dû 
bsr MidiPut envoyé au MIDI 
pop d0 
tst.l dû 
bmi.s .send 
dbra CHAR DECOUNT, .char boucle 
rte 
* Demande de l'adresse de 1’ IOREC du MIDI? 
xbiosl4 ampi.l #IORec<<16+42, (PARM LIST) 
bne.s StndXB10S 
lea VarBase+MidilORec(pc),a0 Adresse 
move .l a0, d0 de 1l'IOREC 
interne 
rte 


* Saut au XBIOS standard pour les autres fonctions 
StndXB10S 
ire $87654321 


suite en page 14 


MIDI_BUF bne.s .put01 








btst fi, ACIA Status\w ET SI transmetteur ACIA 
suite de la page 13 à :: 3615 STMAG 
beq.s -put01 
k move .b d0,ACIA Data\w écriture directe dans l'ACIA 
+ Détermination de l'état d'entrée du MIDI move.b ACIACntrl (VARBASE) ,dl Octet de cntrl ACIA Téléchargement 
* Renvoie : d0=0 si tampon vide, -1 sinon bclr #6,d1 Force ligne RTS basse 
k bset #5,d1 Demande une IRQ sur TX Empty SAPRISTI. 
Midi fnStatus: move .b di, ACIA Cntri\w 
move VarBase+InHead (pc) , dû moveq #0, d0 renvoie d0=0, char transmis 
cæ VarBase+InTail (pc) , d0 bra.s -put99 
sne d0 .put01 addq #l,dl wrap (Tail (OUT) } Rxull move .b ACIA Data\w,d0 Lecture caractère reçu 
ext.w dû ap Out Size (VARBASE) , dl cmpi .b 11,XMode{VARBASE) SI protocole KON-XOFF actif, 
ext.l dû bes.s .put10 bne.s .Rx10 
rts moveq $0,d1 empi.b #XOFF, d0 XOFF reçu .? 
ÿ .put 10 a OutHead {VARBASE) , di Si tail@head, bne.s -Rx01 
* Détermination de l'état de sortie du MIDI beq.s .put20 char dans le st TxOff (VARBASE)  Inhibe la transmission 
* Renvoie : d0=0 si tampon plein, -1 sinon move. l OutBuffer (VARBASE) ,a0 tampon de sortie bra.s .Rx99 
L move.b d0,0 (a0, dl .w) .Rx01 cmpi.b #XON, d0 XON reçu ? 
MidiOutStatus : move di,OutTail {(VARBASE) update tail bne.s .Rx02 
move VarBase+#OutTail (pc) , d0 moveq 40,d0 renvoie d0=0, sf TxOff (VARBASE)  Autorise la transmission 
addq #1, d0 \ bra.s .put99 char transmis bra.s .Rx99 
cp VarBase4OutSize (pc) , d0 .put20 moveq +-1,d0 SINON, dO<0, char non-transmis .Rx02: 
bne.s .star .put 99 popm. 1 di/a0/VARBASE Restaure les registres -Rx10 move InTail (VARBASE) , dl Wrap{Tail{IN)) 
moveq #0,d0. pop st et les interruptions addq #,dl 
.star cp VarBase+OutHead (pc) , d0 rts ap InSize (VARBASE) ,d1 
sne d0 * bcs.s .Rxll 
ext.w dû * Routine d'interruption traitant les IRQ de l'ACIA MIDI cir di 
ext.l d0 * .Rxll cp InHead (VARBASE) ,dl SI head=tail, tampon 
rts ACIA STATUS  EQUR DO beq.s .Rx99 d'entrée plein, caractère perdu! 
* * move. l InBuffer (VARBASE) , a0 
* Lecture d'un octet dans le tampon d'entrée MIDI MidiVec pushm. 1 d0-d1/a0/VARBASE Sauvegarde registres move .b d0,0(a0,d1.w) caractère dans le tampon 
* Renvoie : dû=caractère lu ou -1 si tampon d'entrée vide lea VarBase (pc) , VARBASE move dl,InTail(VARBASE) update Tail IN 
* move .b ACIA Status\w, ACIA STATUS Lecture du status ACIA cmpi.b #1, XMode (VARBASE) SI protocole XON-XOFF 
MidiGet push st IPL=7 btst #7, ACIA STATUS SI b7 du status ACIA=0, bne.s .Rx30 
or #$700,sr * beq.s MidiVecExit . ce n'est pas une IT du MIDI tst.b RxOf£ (VARBASE) ET SI réception autorisée, 
pushm. 1 d1/a0/VARBASE Sauvegarde registres btst 40,ACIA STATUS Interruption du receveur? bne.s -Rx30 
lea VarBase (pc) , VARBASE beq.s .Vec01 sub InHead (VARBASE) ,dl ET SI tampon rempli 
move InHead (VARBASE) , di SI Head{IN) ©Tail (IN), move.b  ACIA STATUS, RxStatus (VARBASE)  Mémorise état receveur bcc.s .Rx20 jusqu'à marée haute, 
crp InTail (VARBASE) , dl push ACIA STATUS Sauver l'état add InSize (VARBASE) , dl 
beq.s .get 02 bsr RxFull -> Lire le caractère reçu .Rx20 cp InHigh (VARBASE) , d1 
addq H,dl Wrap (Head (IN) } pop ACIA STATUS  Restaure l'état bne.s .Rx30 
cp InSize (VARBASE) , di .Vec01 btst #1,ACIA STATUS Interruption de l'émetteur? .Rx21 move .b #XOFF, d0 envoie XOFF à l'émetteur 
bcs.s .get01 beq.s -Vec02 bsr MidiPut 
moveq #0, dl move .b ACIA STATUS, TxStatus (VARBASE) Mémo état émetteur tst.l d0 
.get01 moveq #0, d0 d0>0, char lu push ACIA STATUS Sauver l'état bmi.s .RX21 
move.l InBuffer (VARBASE) , a0 bsr TxEmpty -> Envoyer Le prochain caractère st RxOff (VARBASE) marque réception inhibée 
move .b 0 (a0, d1.w) ,d0 pop ACIA STATUS Restaure l'état .Rx30: 
move dl, InHead{VARBASE) Update Head (IN) .Vec02 btst #5,ACIA STATUS Overrun ? -Rx99 rts 
bra.s .get10 beq.s .Vec03 L 
.get02 moveq #-1, dû SINON, dO<0, pas de char push ACIA STATUS Sauver l'état VarBase RSRESET 
.get10 tst.b RxOff (VARBASE) SI réception inhibée, bsr OverRun Vider le tampon de réception * 
begq.s .get 12 pop ACIA STATUS  Restaure l'état StndMidiVec  rs.l 1 
move InTail (VARBASE) , dl ET SI Tail-Head=Low .Vec03: AddrMidiVec rs.l 1 
water, MidiVecExit : Le 
sub InHead (VARBASE) , d1 popm.l d0-d1/a0/VARBASE  Restaure registres Midi IORec rs.W 0 IOrec du Midi (analogue RS232) 
bcc.s .get1l rts * 
add InSize (VARBASE),, d1 * : InBuffer rs.l 1 Adresse du tampon d'entrée 
.get11 cp InLow (VARBASE) , di OverRun move.b ACIA Data\w, d0 InSize rs.w 1 Taille du tampon d'entrée 
bne.s .get12 rts _ InHead LS.W 1 Pointeur de lecture 
push.l d0 Envoie code XON * Intail ES.W 1 Pointeur d'écriture 
. loop move .b #XON, dO à l'émetteur * Interruption du transmetteur ACIA InLow rs.W 1 Marée basse du tampon 
bsr MidiPut * InHigh ES:w 1 Marée haute du tampon 
tst.l d0 TxEmpty tst.b TxOff (VARBASE) SI transmission autorisée, * 
bmi.s .loop bne.s .Tx10 OutBuffer rs.l 1 Adresse du tampon de sortie 
pop.l d0 move OutHead (VARBASE) , dl SI tampon non-vide,  OutSize ES.W 1 Taille du tampon de sortie 
sf RxOfF (VARBASE) Réception activée a Out Tail (VARBASE) , dl OutHead Is.W 1 Pointeur de lecture 
.get12 popm. L d1/a0/VARBASE Restaure registres beq.s .Tx10 OutTail IS.W 1 Pointeur d'écriture 
pop sc et restaure IPL addq #l,dl Out Low rS.W 1 Marée basse du tampon 
rts cp OutSize (VARBASE) , d1 Wrap (Head OUT) OutHigh rs.w 1 Marée haute du tampon 
* bcs.s .Tx01 È 
* Ecriture d'un octet dans le tampon de sortie MIDI cir dl RxStatus rs.b l Etat du récepteur ACIA 
* Entrée : dû=caractère à émettre .Tx01 move. l OutBuffer (VARBASE) , a0 envoi du car TxStatus rs.b 1 Etat du transmetteur ACIA 
* Renvoie : d0=0 si car. transmis,-l si tampon de sortie plein move.b 0(a0,dl.w),ACIA Datalw courant à l'ACIA RxOf£ rs.b 1 Drapeau réception inhibée 
d move di, OutHead (VARBASE) update Head OUT TXOÉ£ rs.b 1 Drapeau émission inhibée 
MidiPut push st IPL=7 bra.s ,Tx99 XMode xs.b 1 Drapeau protocole Xon-Xoff 
ori #$700,sr .Tx10 moveib ACIACntr1 (VARBASE) , ACIA Cntrl\w Octet de ctrl ; Î 
pushm.] d1/a0/VARBASE Sauvegarde registres .Tx99 rts MidiFlag rs.b 1 Etat actif/inactif des routines 
lea VarBase (pc) , VARBASE A6=base des variables * ACIACntrl rs.b 1 Mémorisation ctrl pour l'ACIA 
tst.b TXOÉF (VARBASE) SI transmission autorisée, * Interruption du receveur de l'ACIA « £ 
bne.s ‘ .put0l dcb.b _RS,0 
move OutTa il (VARBASE) , dl ET SI tampon de e 


OutHead (VARBASE) , dl sortie vide, END 


SRE Te 
B U ] ] ON X Le bouton gauche de votre souris est usé et ne fonctionne plus? Et alors? Tapez ce lis- 68000 


ting, compilez, et le tour est joué. 





Michel DESSAINTES 
É BUTTON _X.5S : Échange les boutons de la souris. inv bit: move #$22,-(sp) ; Kbdvbase 
; PT ER de eori.b #3, (a0) ; inverser les bits trap #14 : XBIOS 
; jæ_old vec: addq #2,5sp 
; Remarques : je $12345679  : continuer le traitement normal 
sa 28 . end prg: move.l  d0,a0 ; DO -> kbdvecs 
: Ce programme peut avoir une extension .TOS. move.l 16(a0),jmp old vect2 ; vecteur souris actuel 
f I1 peut être exécuté au démarrage du système avec RS TR Ce En DT CU move.l  fnew vec,16(a0) ; changé en nouveau vecteur 
; la fonction INSTALLER UN APPLICATION : install: ; installation du programme comme résident 
; option lancement AUTOmatique (à partir du TOS 1.4). À 2 SE a clr (sp) 
: pea logo : affiche logo move.l  fend prg-start prg+256,-(sp) 
; Auteur : Michel DESSAINTES move #9,- (sp) move #$31,-(sp) 
: trap #ñ trap #l : fin en restant résident 
addq #6, sp quit: 
jen flush: ; flush keyboard clr (sp) 
start _prg: ; partie résidente move #$FF,-(sp) trap #l ; abandon 
je move +6,-(sp) 
bra.s install trap # section data 
addq #4,sp logo: 
EEE — tst do dc.b 13,10," ” 
new vec: ; échange les boutons de la souris. bne.s £lush de.b 13,10, "Échange boutons souris” 
1 de.b 13,10, "nt 
c.b #$F9,(a0) ; bouton gauche ? move #1,-(sp) dc.b 13,10,"(c) Michel DESSAINTES  8/04/90" 
beqg.s inv bit ; oui => remplacer par le droit trap fl ; lire caractère du clavier de.b 13,10 
addq #2,sp dc.b 13,10,"Installation : Oui/Non ? [0] “,0 
crp.b #$FA, (a0) ; bouton droit ? or.b #$20,d0 ; conversion en minuscules 
bne,s jmp_old vec ; non => on ne fait rien cp .b #'n',d0 ; (Ojui on [NJon ? end 
: oui => remplacer par le gauche beq.s quit : [NJon -> quitter 


4, 





POINT ASTRO 


Vous avez là un utilitaire qui vous permet de calculer tout ce que vous avez à 
calculer quand vous vous intéressez au soleil: circumzenithale, éphémérides, 
méridienne, Injimuvchiennidales, nbskeuxiennes, etc. 


VARRRRRRRRRÉRRRRRRRRÉRERARAR ARR RRRARARERRARRARARÉNRRARE RER A ÈÈX 


xx LES 
VAx POINT  ASTRONOMIQUE AVEC LE SOLEIL "a 
ax par Benoit de Pradier d'Agrain Es 
47 copyright avril 1990 L'J 
1rk ** 


MR RON ON ARKEMA AAA A OO D KE AR CR A RÉ R 
\ 

‘ Sources : “Calcul astronomique pour amateurs”, S. Bouiges 
4 

LELLELE SES EEE EEE ETS DEEE TE EEE SSSR TS SSI TS S TT S TT TT 
LE INITIALISATION ** 
ALELLEL ELLES EEE SET TETE EEE TETE PTT ES TSI SES TT TS TT TT TT 
4 


SCREEN 1, MEMORY(32256),4! Change d'écran graphique 
PALETTE $0,,,$710! Redéfinit la palette 

DEFDBL “A-2"! Décimaux en double précision 
DEG * Calculs en degrés 

\ 


% FONCTIONS * # À #4 # # A DA AA AA HE À 2 A À AA A OA CH AC ACC HO A 
Ü 


‘ Conversion degrés décimaux -> degrés, minutes 

DEF FN Dms$(Af)= STR$( FIX(A#))+" degrés “+ STRS{ FIX{ 
FRAC (A#)*60*10)/10)+" minutes “ 

\ 


\ Conversion heures décimales -> heures, minutes 

DEF FN Hms$ (A#}= STR$( FIX(A#))+"” heures “+ STR${ FIX({ 
FRAC (A#) *60*10)/10)+" minutes “ 

L 


VAR A KRRRRKROR HONOR NOK AA HRK A A HO HA A A A CC AC AR AR RAA RAR 
ALL: MENU ** 

Menu! RARE ERREUR ERARERREARARÉRR RARE ÉERÉAÉÉERÉ ARR ARR AR ÉRR 
\ 


CLS 

PRINT @(4,19);"CALCUL DU POINT ASTRONOMIQUE PAR LE SOLEIL" 
PRINT @(12,10);"(1)} Droite de hauteur (2) Méridienne (3) 
Circumzénithale” 

PRINT @(14,10);"{4) Point complet 
Fin" 

INPUT @(18,33); "Votre choix : “;Ch24 
CLS 

ON Ch2# GOSUB Droite De Hauteur,Meridienne,Circumzenithale, 
Point Astro,Ephemerides, Fin 

A$= INPUTS (1) 

GOTO Menu 

4 


(5) Ephemerides (6) 


VRRKRKR RARE ARRERRARARERARARERARRÉRRARERERERARÉRELRLLRARRÉRALX 


xt DROITE DE HAUTEUR ** 
-Droite De Hauteur! *XAXRAARXARAXLXALXERRARARLRERÉRÉERRÉRRRARÉRRIR 
à fs 

PRINT @(1,6); "DROITE DE HAUTEUR” 

Nt=0 

GOSUB Droite 

4 

PRINT @(12,2);"Hauteur estimée : "“;FN Dms$(Hef) 

PRINT @(14,2) :"INTERCEPT : "; FIX(It#*10)/10;" milles * 

PRINT (15,2); "AZIMUT : ";FN Dms$ (Az#}s 

il 


RETURN 
\ 
VRRR AR RH RH KR HR HD RAA AAA AC À DH HO HA OA OR 


x POINT ASTRO ot. 


Point ASTrO! RÉRARÉRARARAXRARERERRAARARÉRÉ AREA ÉÉ RÉ RNARR RÉ RÉ ÈÈR 
A = 


, | 


PRINT @(1,6);"POINT ASTRONOMIQUE : deux droites de hauteur" 
Nt=1 

GOSUB Droite 

1 , 

INPUT € (17,4) ; "Cap moyen du navire depuis le premier relevé en 
degrés : “:Cap# 

INPUT @ (18,4) ; "Vitesse moyenne en noeuds : “;:Vitesses 

L 


* Calcul de l'intersection de deux droites de hauteur en 


‘ tenant compte de la distance parcourue entre chacun des relevés 
1 


Temps#=H# (1)-H8 (0) 
B4 (0)=B# (0) + COS (Capt-Af (0)) *Vitessef*Tempst 
‘ 


Ab#= SOR(BE (0) "24B#(1)"2-2*B# (0) *B#{1)* COS(AF(0)-AH(1))) 
Cof= SIN(A#(0)-A#(1))/Ab4 

Cbaf= ARCCOS (Co#*B4 (0) ) 

Cab#= ARCCOS (Cof*B#(1)) 

Act=Ab#* SIN(Chat)/ SIN(Chat+Cab#) 

B#(2)= SOR (Ac4*2+B4 (0) 2) 

A#(2)=A4 (0)+ ARCCOS (B4 (0) /B#(2)) 

Lont=Lof+ SIN (A# (2)) *B# (2) /60 

Lat#=Laf+ COS (A4 (2) ) *B# (2) /60 

1 


PRINT @(20,2);"LATITUDE : “;FN DmsS (Lat{) 
PRINT @(21,2) ; "LONGITUDE : ";FN Dms$ (Lont) ; 


RETURN 
LECPETTEE ET EEE ETES TETE STE ZE TSSLSEZSIII III III IT IIII 1111110 
xx MERIDIENNE id 


-Meridienne' RARARAARAARRRRRRRÉ ARR ÉARÉÉLARRLRÉRRARALEARARRLAA REX 
L 


PRINT € (1,6) ; "MERIDIENNE" 

INPUT @ (3,2); "Jour , mois , année : “;Jot,Mot,Ant 

INPUT @ (4,2) ; "Longitude estimée en degrés, minutes ( - à 
l'est) : ";D4,M4 

Loi= SGN(D#) *( ABS(D#)+ ABS (M4/60)) 

INPUT @ (5,2); “Signe de la latitude estimée { + ou - } : “;S$ 
SE=(S$="-") - (S$="+") 

Hdt=12 

GOSUB Soleil 

Hp#=Hp#+Lot/15 

PRINT @(7,4);"Heure GMT du passage du soleil au zénith : “;FN 
Hms$ (Hp#) 

INPUT @ (9,2) ; "Hauteur observée en degrés, minutes : “;D#,M# 
Hoë=D#+M4/60 

INPUT .8 (10,2) ; "Hauteur de l'oeil en mêtres : “;Eof 
Hv#=Hot-.0295* SOR(Eo#)-.016/ TAN (Hot) +2.444E-3* 

COS (Hot)+.2667' Correction Ho 

Lat#=(90-Hv#)+ ABS (Det) *S# 

PRINT @(12,4);"LATITUDE : “;FN Dms$ (Lat#) ; 

RETURN 





Benoit DE PRADIER 


VRRARRRARREA ARE ER ÉARÉRERÉ ARR AURARRARRRÉRÉ AR ERARARANRRÉ ARR RÈRÉÉ 
Li CIRCUMZENITHALE sh 

-Circumzenitha Le’ #2 2% 62 06 2 2€ de 3 HA OK HE AH A DE DA HE A D HE AD AE D OC XX 
‘ 


PRINT @(1,6) ; "CIRCUMZENITHALE”" 

INPUT @{3,2);"Jour , mois , année : “;Jof,Mot, Ant 
INPUT @(5,2);"ler RELEVEMENT: Heure GMT , minutes, 
secondes : ":H#,M4,S4 

H13=H#+(M#454/60) /60 

INPUT 8(6,2);"2e RELEVEMENT: Heure GMT , minutes, 
secondes : ";:H4#,M#,54 
H2$=H#+(M#+S4#/60) /60 
Hmi= (H14+H2#) /2 
Hdf=12 

GOSUB Soleil 
Lo$={Hp#-Hmt)*15 
PRINT €(8,4);"Temps de passage local : “;PN Hms$ (Hmt) 
PRINT € (9,4); "Temps de passage à Greenwich : “;:FN Hms$ (Hpt) 
PRINT @({11,4) ;"LONGITUDE:: “;FN Dms$ (Lo) : 

RETURN 

\ 





LÉLLELEE LE EETETEETE TT ETES TETE TT STE TES SCT STI TUTO EU 
vi EPHEMERIDES SOLEIL 4e 

-Ephemeri des! # #44 4 ke x te eee HER ODA AAA RAD IC 
Û 


PRINT @ (1,6) ; "EPHEMERIDES DU SOLEIL" 

INPUT @ (3,2); "Jour , mois , année : “;Jof,Mof,An4 

INPUT @(4,2);"Heure GMT , minute , seconde : “;H#,M8,S+ 
Rdf=Hf+(M#+54#/60) /60 

GOSUB Soleil 

PRINT @(6,2) ; "Ascension droite : “;FN Dms$ (Ad#) 

PRINT @(7,2); "Point vernal : “;PN Dms$ (Pvt) 

PRINT @(9,2) ;"DECLINAISON : “;FN Dms$ (Def) 

PRINT @(10,2);"A.H.G. : “;:FN Dms$(Ah#) 

Hdf=12 

GSUB Soleil 

PRINT (12,2) ; “Heure de passage du soleil à Greenwich : “;PN 
Hms$ (Hp4) ; 

RETURN 


\ 
VAR RAR AA AR A HA HRK ADR HAE A DA AAA RH HP ROMA AR 
xx CALCUL DE LA DROITE DE HAUTEUR #2 


Droite! *ARXARXRARARAARARARARARAEEARAREALARREARER ARR AR LEA ALLE 
\ 


INPUT @ (3,2); "Jour , mois , année : “;Jot,Mot,Ant 

INPUT @ (4,2) ; "Latitude estimée en degrés, minutes { - au 
sud } : ";D4,M4 

Laf= SGN(D#)*( ABS (D#)+ ABS (M#/60)) 

INPUT @ (5,2); "Longitude estimée en degrés, minutes ( - à 
l'est) : ";D4,Mf 

Lot= SGN(D#)*{ ABS(D#)+ ABS (M#/60))} 

FOR 1#=0 TO Nf 

IF Ch2#=4 THEN PRINT A (7+1#45,4):"RELEVE N°”:1#41 

INPUT @(8+1#*5,2) ; "Heure GMT , minutes, secondes : “;:Ht,M#,S4 
Hd#=H#+(M#+S#/60) /60 

GOSUB Soleil 

INPUT @(9+14#*5,2); "Hauteur observée en degrés, 

minutes : ":D£,M# 

Hof=D#+M#/60 

INPUT @(10+1#*5,2) ; "Hauteur de l'oeil en mètres : “:Eof 
Hvi=hot-.0295* SOR(Eof)-.016/ TAN(Hot}+2.444E-3* COS (Hoë) 
+.2667" Correction Ho 

Al#=Ah#-Lot' Angle horaire local 
Het= ARCSIN( SIN(Lat)* SIN(Det)+ COS (La#) * 
COS (De#}* COS(A14))" Hauteur estimée 

Az#= ARCCOS({( SIN(Det)- SIN(La#}* SIN(He#})/( COS(La)* COS(Het)}) 


IF Hd#>12 THEN Az#=360-Az4! Azimut 
It#={Hv#-Hef) *60/ Intercept 
IF N#=1 


THEN Af(I#)=(Az#-180*(It#<0)) MOD 360' Mémorisation des in- 
formations utiles 

B#(I#)= ABS(Ité) 

H# (14) =Hd}# 





ENDIF 
NEXT 1# 
RETURN 
A 


VRRRRÉRARRRRARÉA RER TARA ARRRRRRRRARÉRRRÉRÉRARRRRERÉR 


\#%. CALCUL DES EPHEMERIDES DU SOLEIL “à 
=Solei 1! #X A RAR AR UM AAA ARR A A HN HAINE RAR ERA RAA RAR RAR 
x 


* T-temps écoulé en jour depuis le ler janvier 1901 à 0 heure 
T#= FIX({(Anf-1901)*365.25+ FIX(((Mot-1) *30.59)+:45)41.75 

* (Mo#>2) +Jof) +Hd4/24 

J$="LUNDI MARDI  MERCREDIJEUDI  VENDREDISAMEDI DIMANCHE” 
PRINT @(3,50);"Nous sommes "; MIDS (JS, { FIX(T#) MOD 7)*8+1,8) 
Ob4=23.439! Obliquité de l’écliptique 
Ext=.0167134164" Exentricité 
Lmt=(278.9654+.9856473421#*T#) MOD 360! 
Pvt=(lm#+180+15*Hd#) MOD 360’ 
Lp#=281.235+4.69E-5*T4" 


Longitude moyenne 
Point vernal 
Longitude du périhélie 


Ami=Lmt-Lp#' Anomalie moyenne 

\ 

U+=Amt 

FOR Kf=1 TO 10! Equation de Kepler 
Ut=Am#+Ex#* SIN(U#)*180/ PI 

NEXT K# 

4 


Av#=2* ATN( SOR((1+Ex#)/(1-Ex#))* TAN{U4#/2))' Anomalie vraie 
Lvf=(Lp#+Avt) MOD 360' Longitude vraie 
L 


Det= ARCSIN( SIN(Lv#)* SIN(Ob#))' Déclinaison 

Adf= ARCCOS { COS (Lv#)/ COS (Det) )’ Ascension droite 

IF COS (Obt#) * SIN(Lv#) <0 THEN Adt-360-Ad#" Angle complémentaire 
Ah#=(Pv#-Ad#+360) MOD 360! Akvo 

IF Hd#=12 THEN Hp#=(12+(360-Ah4#)/15) MOD 24’ Temps de passa- 
ge au méridien 0 

RETURN 

‘ 

LLLEEE ELLE ELLES ETES EDEN ET TT 


LE] FIN *x 


Fin  RARAARERERARAAARERARA RARE AR LANRAAÉ RAR RAR AR ARR ÉAÉLÉRAAAIRE 


L 


PALETTE $777 
END 


15 
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A PARTIR DE 


Golden 
Premium 


GARANTIE 2 ANS 















“Mémoire cache de 64 Ko 
intégrée. 

Logiciels de formatage et 
de partitionnement fournis. 

-Disque auto-parquable. 

“Horloge permanente 
intégrée. 

-Taille ultra réduite 

ST (151x30Lx45H) 

-Disque dur Quantum. 

CUT Sortie SCSI 


LIVRE PRET A FONCTIONNER 


Nouveau SES 


RAPIDE ET FACILE D'EMPLOI / SILENCIEUX 










“Extension mémoire Big Mem 
pour Mega ST1/STF (2 ou 4 Mo). & 
490 F00 - Code BIG MEM. 
“Extension mémoire pour STe 

{barrette SIM). 
35 0.F00 - Code SIM. 
“Extension mémoire 512 Ko À mt mem EU 
pour 520 STf à Article Quantité Référence 
320 F00 - Code Ext 520, ME a 
Kit haute densité pour STF/STe/ 
{sans le lecteur). 
290 F00 - Code KITHD. - = 
Lecteur haute densité inteme. _ 
495.F00 - Code LECHDI. : 


PAYEZ EN 4 FOIS / SATISFAIT OÙ REMBOURSÉ 
Consultez nous pour plus d'information. 


OKON 


OMIKRON, 7 rue VOLTAIRE - 51100 REIMS 
Tél. 26 40 60 22 - Fax. 26 97 71 39 


LIVRAISON RAPIDE / CHRONOPOST 























SAMPLES FETCHER 


Utilisez Fetcher pour écouter et tripoter des samples (.SPL). HELP garde en mémoire le 
sample courant et UNDO le restitue. 


HIDEM 

FOR a$=0 TO 191 
READ b$ 
c$=c$#MKL$ (VAL ("&H"+b$)) 

NEXT a% 

FOR a%=1 TO 768 STEP 3 
tb$=tb$+CHR$ (8) 4MID$ (c$, a%, 1) +CHR$ (9) +MIDS (c$, 

SUCC (a#), 1) +CHR$ (10) +MIDS (c$, a#+2, 1) #MKIS (0) 

NEXT a% 


play$=play$+MKL$ (VAL (“£&h”+b$) ) 
NEXT a$ 
speed$=46 
SPOKE £H484,0 
CLR c$ 
SETCOLOR 0,0 
SETCOLOR 15,4H765 
SETCOLOR 1,6H753 
SETCOLOR 2, &H321 
SETCOLOR 3,6H357 
SETCOLOR 4,€H567 
SETCOLOR 5,6H725 
SETCOLOR 7,6H700 
CLS 
COLOR 3 
BOX 0,0,319,127 
COLOR 2 
LINE 1,64,318,64 
step+=10 
cut $=2 
aftxt 
CLR 5$ 
Do 
IF s$="* 
KEYPRESS 187 
ENDIF 
SELECT SUB(INP (2) ,186) 
CASE 1 
ALERT 2," | | Format ? 
“ Amiga | Atari ",stmagt 
format $=SUB (stmag$, 2) 
FILESELECT “A:\*.SPL",MID$S (nf$,4),nf$ 
HIDEM 
IF EXIST (nf$) 
OPEN “1",#1,nf$ 





| “,ADD(2, format#), 


1s%=MIN(LOF (#1),32767) 
s$=INPUTS (1s$, #1) 
CLOSE #1 
IF format 
FOR g%=V:s$ TO PRED{ADD(V:s$, 1s%)) 
BYTE {9% }=BCHG(BYTE {9%}, 7) 
NEXT g$ 
ENDIF 
undo$=s$ 
unlst=]1s$ 
redraw 
ENDIF 
CASE 2 
ALERT 2," | | Format ? | “,ADD(2,formatt), 
“ Amiga | Atari ",stmag$ 
format +=SUB (stmag%, 2) 


FILESELECT “A;:\*,SPL",MIDS (n£$, 4) ,n£$ 
HIDEM 
IF format$ 
sv$=s$ 
FOR g$=V:s$ TO PRED(ADD{V:5$,1s%)) 
BYTE {9% }=BCHG (BYTE{g%], 7) 
NEXT g$ 
ENDIF 
IF nf$c>"" 
BSAVE nf$,V:s$,1s$ 
ENDIF 
IF format 
s$=sv$ 
CLR sv$ 
ENDIF 
CASE 3 
boost : 
CLR mx$,m$ 
SETCOLOR 0,4 
FOR ad$=V:5$ TO ADD(PRED(1s%),V:s$) 


LARGONYI 






k$=SUB (BYTE{ad$}, 128) 
mx$=MAX (k$, mx%) 
mn$=MIN (k$,mn%) 
NEXT ad$ 
IF mm$<=-128 OR mx$>=127 
SETCOLOR 0,0 
ALERT 3," | | Unboostable | “,1, 
* Sorry ",kjkj$ 
HIDEM 
ELSE 
ar$=MAX(mx$, -mn$) 
FOR x=0 TO 319 
PSET x6,SHR(SUB(128, ar%) , 1), ADD (PTST (x6, SHR 
(SUB (128, art),1)),4) 
PSET x&, SHR (ADD (127,ar%) , 1), ADD (PTST (x6, SHR 
(ADD(127,ar$),1)),4) 
NEXT x6 
rap=128/art 
FOR ad#=V:s$ TO ADD (PRED(1s%),V:s$) 
BYTE{ad$}=MIN (ADD (128, SUB (BYTE{ad#}), 
128) *rap), 255) 
NEXT ad# 


FOR ad#=V:s$ TO ADD (PRED (15%) , V:5$) 
EXIT IF ABS (SUB(BYTE{ad#}, 128) )>cut$ 
NEXT ad$ 
start4=SUCC (ad$-V:s$) 
FOR ad#$=ADD{PRED(1s%),V:s$) DOWNTO V:5$ 
EXIT IF ABS(SUB(BYTE{ad#}), 128) }>cut$ 
NEXT ad$ 
os$=15$ 
1s%=SUCC (SUB (SUCC (ad$-V:s$),start$)) 
IF 1s5>0 
s$=MIDS (s$,start$,lst) 
redraw 


REPEAT 
MOUSE mx$,my$,mz$ 
1F my$>128 
SETMOUSE mx$, 128 
ENDIF 
ar%=MIN(64,MAX (1, ABS (64-my%) )) 
IF ar$Oor$ 
LINE 0,ADD(63,ar%),319,ADD (63, ar%) 
LINE 0,SUB(64,ar%),319,SUB(64,ar%) 
IF or$©-1 
LINE 0,ADD(63,or#%),319,ADD(63,0r%) 
LINE 0,SUB(64,or%),319,SUB(64,or%) 
ENDIF 
ort=ar$ 
ENDIF 
UNTIL mz$ 
LINE 0,ADD(63,ar%),319,ADD(63,ar%) 
LINE 0,SUB(64,ar%),319,SUB(64,ar%) 
GRAPHMODE 1 
SETCOLOR 0, 4 
ADD art,ar$ 
lim=art 
CLR mx$,rm% 
SETCOLOR 0, 4 
FOR ad$%=V:s$ TO ADD (PRED (1s%),V:5$) 
k%=SUB (BYTE (ad$}, 128) 
mx$=MAX (k$, mx$) 
mm #=MIN (k$, mn) 
NEXT ad$ 
art=MAX(mx$,-mm%) 
FOR x6=0 TO 319 
PSET x6, SHR(SUB (128,ar%), 1), ADD (PTST(x&, SHR 
(SUB (128, ar$),1)),4) 
PSET x£, SHR (ADD (127,ar%) ,1), ADD (PTST(X6, SHR 
(ADD(127,ar$),1)),4) 


Un traducteur franço-largonji, en GfA 3.0, pour ap- 


prendre à parler complètement comme le peuple. 


\ Voyelles (si.) et démerdez-vous pour les accents 


DATA A,E, I,O,U,Y 

\ Syllabes de fin 
DATA em, i,om,en,an,on 
Li 


nb_last=6 

DIM voy$ (6) ! Je n'ai que deux 
DIM last$ (nb last) | dimensions 
copie$="Je suis boucher c'est mon boulot" 
\ 


FOR i=1 TO 6 
READ voy$(i) 
NEXT i 
FOR i=1 TO nb last 
READ last$ (i) 
NEXT i 
1 


DO 
INPUT “Votre phrase: 
IF LEN(lachaine$)=0 
lachaine$=copie$ 
ENDIF 
analyse la phrase et_plus vite que ca 


“,lachaine$ 


Mic DAX 


copie$=lachaines 
LOOP 
Procédure portant bien son nom 
PROCEDURE analyse la phrase et plus vite que ca 
jecherche=0 
javance=1 
REPEAT 
jecherche=INSTR (lachaine$," ", javance) 
IF jecherche 
len=jecherche-javance 
ELSE 
len=LEN (lachaine$) -javance+1 
ENDIF 
\ Je sépare mes mots comme il faut... 
mot$=MID$ (lachaine$, javance, Len) 
javance=jecherche+1 
preums$=LEFT$ (mot$) 
‘ Le mot doit commencer par une consonne puis 
\‘ par une voyelle, sinon c'est n'importe quoi. 
IF @voy(preums$)=FALSE AND @voy (MID$ (mot$, 2, 1))=TRUE 
IF êc_ syl (mot$)>1l 
elle$="1" 
IF UPPERS (preums$}=preums$ 


ULTIMATUM 
of Zap Creation (from The Heavy Killers) 









ET D'ABORD) 
JE DÉTESTE 
QU'ON ME 
TRIPOTE!.. 


NEXT x6 
rap=lim$/ar$ 
FOR ad%=V:s$ TO ADD (PRED(1s#),V:s$) 
BYTE{ad$)=MIN (ADD (128, SUB (BYTE{ad$}, 
128) *rap),255) 
NEXT ad# 
SETOOLOR 0,0 
redraw 
CASE 6 
SETOOLCOR 0,4 
FOR ad#$=V:s$ TO ADD(PRED(15%), V:s$) 
1F BYTE{ad%$)>ADD(128, cut#) 
BYTE {ad }=SUB (BYTE {ad$},cut#) 
ELSE IF BYTE{ad+}<SUB(128,cut+) 
BYTE (ad }=ADD (BYTE{ad#),cut%) 
ELSE 
BYTE{ad$)=128 
ENDIF 
NEXT ad$ 
GOTO boost 
CASE 7 
SGET z$ 
PRINT AT(1,17); 
INPUT “Step=1/",hg$ 
IF VAL(hg$) 
step#=VAL (hg$) 
ENDIF 
SPUT 2$ 
CLR z$ 
aftxt 
redraw 
CASE 8 
SGET z$ 
PRINT AT(1,17); 
INPUT “Cut under “,hg$ 
IF hg$©"" 
cut$=MIN (ABS (VAL {hg$)), 127) 


CASE 9 
PRINT AT(1,17); 
INPUT “Speed=", speed 
speed#=ABS (speedt) 
PRINT AT(1,17) ; STRINGS (40, 32) ; 
PRINT AT(16,17);CHR$ (27) ;"bilen:";1s$''"!AT 
(27,17) ; “Speed: ”;speed$;CHR$ (27) ;"b?"; 
CASE 10 
OUT 4,6H12 
super$=GEMDOS (£H20, L:0) 
play$=V:play$ 
tb$=V:tb$ 
REPEAT 
-Ciplay$(L:iV:s$,L:V:s$+1s%, L:tb$, speed) 
UNTIL BYTE{&HFFFCO2}<>68 
-GEMDOS (&H20, L: super) 
OUT 4,8 
CASE 39 
s$=undo$ 
1st=unlst 
redraw 
CASE 40 
undo$=s$ 
unls$=1s$ 
CASE -159 
SPOKE 6H484,7 
EDIT 
ENDSELECT 
LOOP 
PROCEDURE aftxt 
PRINT AT(1, 18) ;"SAMPLES FETCHER vl.3 coded for 
ST-Mag by"; 


PRINT AT(1,19);:" Ultimatum of Zap Creation from 


HR 

PRINT AT(5,20) ; STRINGS (32,255) ; 

PRINT AT(1,21):"[F1] :Load Sample";AT (20,21) ; 
"[F2]:Save Sample”; 

PRINT AT(1,22):"{F3):Volume Booster [F4]: 
Blank killer”; 

PRINT AT(1,23);"{[F5]:Set Volume 
Filter”; 





elle$="L" 
ENDIF 
\ On tire la dernière syllabe au hasard 
mot$=elle$+MIDS (@arranges (mot$) , 2) + 
êlower$ (preums$) tlast$ (RND*nb last+1) 
ENDIF 
ENDIF 
PRINT mot$;" “; 
UNTIL jecherche=0 
PRINT 
RETURN 
\ Avec de si beaux yeux, tu es au moins une voyelle! 
FUNCTION voy (car$) 
LOCAL i 
FOR i=1 TO 6 
IF UPPERS$ (car$) =UPPERS {voy$ (i) ) 
RETURN TRUE 
ENDIF 
NEXT i 
RETURN FALSE 
ENDFUNC 
\ Il est à toi, ce petit sac? 
\ Fais voir combien il y a de syllabes dedans? 
FUNCTION c_sylim$) 
LOCAL c$ 
syllabes=0 
voyelle=FALSE 
FOR i=2 TO LEN (m$} 
c$=MIDS (m$, i, 1) 


16 


(F6] :Low-Pass 









PRINT AT(1,24);"[F7] :Step=1/";step#'!!!/"AT(20, 
24);"[F8]:Cut at ";cut#’’ 
PRINT AT(1,25);"{[F9]:Replay speed” ;AT (20, 25) ; 
*[F10]Replay"; 
RETURN 
PROCEDURE redraw 
PRINT AT(16,17) ;CHR$ (27) ;"blLen:";15$'*""AT(27, 
17) ; “Speed: ”;speed$; CHR$ (27) ; "b?"; 
rap=1s#/320 
DEFFILL 0 
PBOX 0,0,319,127 
COLOR 3 
BOX 0,0,319,127 
COLOR 2 
LINE 1,64,318,64 
FOR x=0 TO 319 STEP 1/step$ 
PSET x, SHR(BYTE{V:s$+x*rap}, 1),3 
NEXT x 
FOR x£=0 TO 319 
PSET x&, SHR{SUB(128, cut) , 1), ADD (PTST (x&, SHR 
(SUB (128, cut#),1)),2) 
PSET x&, SHR (ADD (128, cut), 1),ADD (PTST(x8, SHR 
(ADD (128, cut#),1}),2) 
NEXT x& 
LINE 1,64,318, 64 
RETURN 
DATA C0B090C,B090D08, 80B0B0B, D09050C, B080D09 
DATA 20D0806,C0B070D, 7070C0B, 60C0A09, BOBOAOC 
DATA B020C0B,C0A08, D06040D, 5050D05, 40C0909, D04030B 
DATA B090C0A, 50B0A0A, C09080B, B080COA, COA00 
DATA C09070B,B070C09, 60B0B06, B0A090B, BO50AOA 
DATA A0B0B02, B0A080C, 7070C08, 40C0706, B09090C, 6060A0A 
DATA 90C0703,B0A050B, 9080B0A, 30A0A08, BOA000B 
DATA 9070B08,80A0A07, A09090C, 1010A0A, 60B0807 
DATA A0A050A, 9080A0A,20A0A01,A0A0009, 9090208, 80B0801 
DATA A09060B, 7040A09, 5090908, A09030A, 806009 
DATA 90907, 908080A, 8040909, 60A0801, 9090509, 8070808 
DATA 8090902, 9080609, 9000907, 7080807, 9070609 
DATA 8020808, 6090606, 8070708, 8040807, 6080802 
pATA 7070708, 6060807, 4070706, 8060508, 6040706 
DATA 6070704, 8050406, 6060706, 4070505, 6060506, 6040605 
DATA 5060602, 6050405, 5050605,2050504, 5040405 
DATA 5020404,4040403, 4040204, 3030303, 3030302 
DATA 3020202,2020202, 1010101,2010001,1000100,0 
DATA EODOCOF, 3000F03,F0300,F03000F, 3000F03, E0DOB 
DATA EO0D0B0E, DOB0E0D, B0EODOB, EODOBOE, DOBOE0D 
DATA A0E0D0A,EODOANE, DOA0EOC, COE0D00, DODODOD 
DATA DOD0DOD,DODODOD, DODODOD, DODOEUC, BOEOCOB 
DATA EOCOBOE, COBOEOC, B0EOCOB, EOCOBOE, COB0E0C 
DATA A0EOCOA, EOCOADE, COAODOD, CODODOC, E0CO90E, CO90EOC 
DATA 50E0C00,E0C000€, BOBOEOB, BOEOBOB, EOBOBOE 
DATA B0A0E0B, A0EOBOA, DODOBOD, DOBODOD, BOE0B09 
DATA E0B090€,B090D0C,CODODOA, E08070E,B000E0B, DODO9 
DATA D0D090E, A090D0D, 80D0D07, DODO40D, DO00EOA 
DATA 40E0909,E09090D, COB0E09, 800908, E09070E 
DATA 8080E09, 10C0C0C,DOCOAOE, 8060807, 7060800, E07050E 
DATA 6060D0C, 90E0505,E04040D, CO80D0B, B0E0000 
DATA DOC060D,C050D0C, 20C0C0B, COCOBOD, BOAODOB 
DATA A0DOB0A, DOBOAOC, COAOCOC, AOCOCOA, DOBO90D, B090DOA 
DATA A0D0A0A,DOAOA0C, CO90C0C, 90C0C09, DOB060C 
DATA B0B0COC, 80D0B00,DO0B000C, C0 70C0C, 60C0C05 
DATA CO0C030C, C010C0B, AODOA05,D0A040D, A020D09, 800908 
DATA 46FC2700, 48E7F0F0,206F0024,226F0028, 246F002C 
DATA 302F0030, 343C0080,47F88800, 760A1683,C030007 
DATA 670651E8, 26004, S0EB0002, 51CBFFEC, 72001218, D202E749 
DATA 26321000, 32321004, 7CB0000, 38B0000, 360051CB 
DATA FFFEB3C8, 66DE203C, 8000900, 1CB0000, 303C0A00 
DATA 18B0000,46FC2300, 4CDFOFOF, 4757274, 2E206279 
DATA 2054484B ! Comme aù bon vieux temps!.. 


GARANTI 


100% 


La SANS BUG 





‘ Je compte les syllabes 
1F @voy(c$)=TRUE 
IF voyelle=FALSE 
INC syllabes 
voyelle=TRUE 
ENDIF 
ELSE 
voyelle=FALSE 
ENDIF 
NEXT i 
RETURN syllabes 
ENDFUNC 
\ Joue pas les grandes avec moi, 
\ Tes rien qu'une minuscule. 
FUNCTION lower$ {m$} 
IF ASC(m$)>64 AND ASC (m$) <91 
m$=CHRS (ASC (m$) +32) 


ENDIF 
RETURN m$ 
ENDFUNC 
FUNCTION arrange$ (m$) 
LOCAL c$ 
FOR i=LEN(m$) DOWNTO 1 
c$=MIDS (m$, i, 1) 
EXIT IF @voy(c$)=TRUE 
NEXT i 
RETURN LEFTS (m$,i) 
ENDFUNC 


LASICBEM GFAT 


Votre équipe de rédaction, et 
surtout, "la Voix de son Maître", je 
veux dire la SARL Pressimage, 
auront-elles le courage de publier 
la présente dans le Courrier des 
Lecteurs? 


Mr BESNEUX, 
CLICHY (92) 


Non. D'autres questions? 


Pressimage est peut-être 
indépendant. mais ST Mag, lui, 
n'est-il pas (un peu tropl) 
étroitement lié à Pressimage, qui 
n'est jamais, après tout, comme 
tout éditeur qui se respecte, 
qu'une machine à gagner des 
sous, füt-ce au détriment des 
lecteurs, pourvu que sa Sainteté 
(sale) Fric rentre, n'est-ce-pas? 

La lecture d'un extrait K-Bis du 
registre du Commerce serait sans 
doute pleine de renseignements 
révélateurs, tels qu'une récente 
participation (ou augmentation de 
participation) substantielle de 
Pressimage dans le capital et le 
Conseil de Direction de ST Mag, 
même si, à l'origine, sans doute, 
ST Mag était totalement indé- 
pendant de Pressimage, alors 
simple prestataire de services. 
Cette prise de contrôle a dû 
provoquer de sérieux remous 
dans la direction et la Rédaction, 
au premier semestre, non? Les 
commentaires "partira-partira 
pas" dans le cadre en dessous de 
l'édito du numéro 48 de Janvier 
sont très révélateurs à cet égard, 
plus d'autres signes avant- 
coureurs qui m'inquiétaient. 
Ainsi, mes craintes étaient 
fondées, le canard replie ses 
ailes, frileusement, sans doute 
aux ordres de Sa Majesté 
Pressimage, au lieu de continuer 
à s'ouvrir largement à l'infor- 
mation sur l'informatique, sans 
pour autant délaisser le ST. 


Mr BESNEUX, 
CLICHY (92) 


C'est pour la caméra cachée, 
c'est un gag? Monsieur 
BESNEUX, vous regardez trop 
les feuilletons américains et vous 
ne lisez pas assez notre modeste 
magazine. Pressimage est la 
société qui édite ST Magazine, 
qui n'est qu'un canard, pas une 
sociéte. De fait, ST Mag n'a 
aucun capital qui lui soit propre, 
et encore moins de Conseil de 
Direction. Notre Directeur de la 
Publication est le patron de 
Pressimage, il a décidé il y a 
maintenant six ans de créer un 
journal dédié au ST à partir de 
l'entreprise qu'il avait créée pour 
éditer un magazine déjà dédié au 
standard Atari. [| n'y a donc au- 
cune prise de participation, 
aucune OPA, aucun noyau dur, 
aucune pression, puisque les 
liens entre ST Magazine et Pres- 
simage sont on ne peut plus 
naturels. Vous avez raison sur un 
point, c'est heureux, une entre- 
prise ne peut pas survivre si elle 
ne fait pas de profits. Bravo. 


Quant au "partira-partira pas”, il 
s'agissait d'une référence à la 
date du 15 janvier, date de 


l'ultimatum posée à l'Irak par les” 


Etats-Unis, la question était de 
savoir quels seraient ceux d'entre 
nous qui iraient combattre en cas 
de conflit. C'était juste une 
plaisanterie, veuillez nous en 
excuser. 


Avez-vous, en prenant cette 
funeste décision de fermeture des 
frontières (NDLR: notre lecteur 
clair comme de l'eau de roche 
veut parler de notre retour à la 
formule 100% ST) pensé à la 
conséquence? Le retrait d'agré- 
ment de la Commission Paritaire, 
agrément que vous aviez mis des 
années à obtenir, vous pend au 
nez. Et qui va payer les pots 
cassés? Le client, le "cher lec- 
teur”, le connard, quoil 


Mr BESNEUX, 
CLICHY (92) 


Oui, oui, promis, nous y avions 
pensé, ça nous arrive de réfléchir, 
parole d'honneur. 

Nous espérons pouvoir conserver 
notre numéro de Commission 
Paritaire encore quelque temps, 
mais il est vrai que nous avons 
fait une croix dessus, et figurez- 
vous que nous avons tout bien 
pesé, le pour, et aussi le contre, 
et encore le pour, et à nouveau le 
contre, pour être bien sûrs qu'on 
ne se tromperait pas. 

Notre agrément était de toutes 
façons provisoire et reconduit 
après de sévères contrôles, la 
Commission nous interdisant par 
exemple de citer les coordonnées 
des éditeurs et le prix des 
produits que nous vous pré- 
sentions, interdiction qui déroutait 
bon nombre de nos lecteurs 
tombant sur un canard n'ayant 
pas le droit de les informer. Nous 
tâcherons de ne pas vous 
importuner avec nos déboires 
admnistratifs, nous ne prenons 
pas nos lecteurs pour ce que vous 
dites; naïfs que nous sommes, 
nous pensions que les efforts faits 
dès le numéro 53 démontraient 
notre respect envers le lecteur. 


ST Magiciel. Première critique: 
c'est sans doute encore une de 
ces idées de Pressimage pour 
pomper nos pauvres poches des 
maigres sous qui leur restent... 
(tant pis si cet éditeur en prend 
pour son grade ici, il fallait bien 
que quelqu'un le remette un peu à 
sa place: il est et doit rester un 
IMPRIMEUR, et non un dictateur 
dictant ses quatre caprices à son 
client). 


Mr BESNEUX, 
CLICHY (92) 


C'est reparti comme en 40. 
Pressimage n'a rien imposé du 
tout, l'idée de ce hors-série vient 
de la Rédaction de ST Magazine, 
et notre Directeur de la 
Publication (aussi patron de 
l'infâme Pressimage) a dit fonce, 





coco", et aussi "accessoirement, 
ne fais pas n'importe quoi avec 
les sous de Pressimage, ils vont 
encore nous engueuler”. 


Deuxième critique: ce n'est pas 
une heureuse idée, beaucoup 
d'entre nous, j'en suis certain, 
n'apprécieront pas du tout cette 
séparation: pourquoi ne pas avoir 
maintenu l'ancienne formule, au 
besoin en regroupant tous les 
programmes dans un encart dans 
un cahier intérieur? 


Mr BESNEUX, 
CLICHY (92) 


Nous nous sommes mal compris: 
ST Magazine continuera à publier 
des listings dans ses pages, nous 
avions juste envie, depuis 
quelques mois, de sortir un 
supplément avec beaucoup 
beaucoup de listings, une grande 
partie de nos lecteurs nous en 
demandant plus, toujours plus. Il 
était impossible de les intégrer 
tous dans ST Mag, déjà bien 
rempli par des articles de fond. 
On vous demande de l'argent, 
oui, pour pouvoir partir en va- 
cances, et pour que le Directeur 
De La Publication puisse créer sa 
propre boite et se libérer du joug 
de Pressimage, dont il est le patron. 


Troisième critique, la plus grave 
(NDC: mamma mia, j'ai peur!): j'ai 
trouvé en page 131 la présen- 
tation du futur STMAGICIEL, et 
son aspect m'a rappelé, bien sûr 
(NDC: bien sûr), celui d'un 
hebdomaire célèbre pour la 
vulgarité de son style ordurier, et 
qui a bu le "bouillon" en grande 
partie à cause de cela... 
Prendriez-vous vos lecteurs pour 
des cons, pour employer le style 
du dit “canard” boiteux? 

Je crains fort que dans cette 
affaire, si vous employez un tel 
style, ce soit vous les c.. , au 
bout du compte, et votre canard 
bis risque alors de faire un “bide”. 
Le genre loubard n'est pas si 
fréquent que vous pourriez le 
croire parmi vos lecteurs. 

Or j'ai lu votre présentation à la 
loupe, et ce que j'y ai lu ne fait 
que confirmer mes craintes: vous 
déraillez, les pôvres, et vous allez 
prendre un sérieux coup de b..., 
pardon de pied au c.…., si vous 
persistez dans ce style vaseux. 


Mr BESNEUX, 
CLICHY (92) 


Vous me rappelez ces gens qui 
se forcent à aller dans les sex- 
shops pour pouvoir dire de visu 
que c'est abominable, honteux et 
que l'Occident est en pleine 
décadence. Lire à la loupe des 
textes "choquants", il faut le 
vouloir, personne ne vous y 
oblige, jetez votre loupe et qu'on 
n'en parle plus, bon sang. Nous 
ne cherchons pas adopter un 
style “loubard”, seulement nous 
préférons de loin pouvoir dire 
“bite”, "cul" et "con", plutôt que 
d'avoir à nous contorsionner en 


COURRIER 
DES 


LECTEUX 


nous exprimant à l'aide de points 
de suspension, ça fait moins 
“balai dans le c...". Quel dom- 
mage que vous ne puissiez lire 
notre réponse aussi complète que 
précise, quoiqu'il serait amusant 
que vous vous soyez fait violence 
et que vous vous obligeäâtes à 
vous procurer notre hors-série. 
Par ailleurs, nous sommes bien 
heureux d'apprendre qu'Hebdo- 
giciel avait pris la soupe, nous 
avions une autre version. Voir 
page 36. 


Pourriez-vous arrêter de vous 
foutre de la gueule des Bretons, 
s'il-vous-plait, nous ne sommes 
pas plus cons que les autres. 
Merci de tout coeur. KENAVO. 


Pascal LE DELLIOU 
Orléans (45) 


Désolé, mais des gens qui disent 
"Breizenec ken kerlesclengen har 
in Plouay ant viva trugarez", qui 
mangent des galettes saucisses 
et qui se font reléguer en 
Seconde Division, désolé, non, 
c'est trop risible. Muchisimos 
besos, y hasta luego! 








On le croyait sur son nuage, 
entouré des plus belles nanas du 
monde, se prélassant autour de 
sa piscine en forme du logo 
d'Atari, mais c'est un altruiste, 
notre Tramiel. 


Un type lui a écrit pour se 
plaindre, des histoires de diffi- 


SAM EST SYMPA 








cultés à développer, gnagnagna, 
qu'est-ce-qu'ils vont pas inventer 
pour embêter les gens honnêtes, 
ces clients. Eh bien ce même 
type a reçu une réponse toute 
gentille d'un dirigeant d'Atari, de 
la part de Tramiel, étonnant non? 
I aurait pu lui offrir un TT, ça 
aurait été un beau conte de fées. 















PERIL JAUNE 


Tiens, vous savez pourquoi les 
machines d'Atari sortent toujours 
en retard? Parce qu'elles avaient 
du mal à passer les tests du 
FCC (Federal Communications 
Commission, qui traque les 
interférences radio chez tout 
appareil électrique lui passant 
dans les pattes). Et pourquoi 
elles avaient du mal à passer 





ces tests? Parce qu'à chaque 
coup ou presque, il y avait un 
ingénieur d'Atari Japon qui 
s'amusait à “améliorer” la 
machine qu'on lui demandait de 
fabriquer. Résultat, Atari Corp a 
dépêché un des siens, Jim 
“Eastwood” Tittsler, pour faire 
respecter les décisions prises 
aux USA, non mais des fois. 


UN PARTOUT 


Tout le monde dit que le ST est 
mort. La preuve, START, ce 
canard ricain consacré au ST, 
START a passé l'arme à gauche. 





Elie Kenan, c'est l'ex-PDG 
d'Atari France, il a laissé son 
poste fin 90 pour s'occuper 
d'Atari Amérique Du Nord And 
Canada. || paraitrait qu'il n’a 
jamais obtenu son visa, des 
histoires de maladie, on sait pas. 
Heureusement, un bruit court 
comme quoi il ouvrirait une usine 
Atari en Israël, avec une sub- 
vention du gouvernement hébreu 
à la clé. Un autre bruit court et 





En Allemagne, le ST se porte 
plutôt bien, quatre canards lui 
sont consacrés: ST Computer, 
ST Magazin, TOS Magazin et 
PD Mag (plus tourné vers les 
softs du Domaine Public sur ST). 
Ce n'est pas fini, un cinquième 
vient d'être lancé, il s'appelle ST 
De LUXE, et est vendu sur 
disquettes. Tramiel est tellement 
content du marché schleu qu'il a 
pris Stumpf, le PDG d'Atari 





C’EST L’HISTOIRE 
D’UN ATARI KIBBOUTZ 





ST UBER ALLES 


D'un autre côté, des utilisateurs 
du serveur GENIE (toujours aux 
States) s'apprêtent à lancer un 
canard dédié au ST. 








prétend que l'usine serait 
implantée dans les territoires 
occupés, avec une subvention 
encore plus grosse que ça. 
Depuis l'été 89, on sait qu'Atari 
résiste mal au feu, Kenan “j'ai 
testé pour vous" veut à présent 
tâter du caillou. 

Bientôt sur vos écrans: Atari 
Irlande du Nord, Atari Philippines, 
Atari Corse, Atari Pays Basque, 
et Atari Kurdistan. 






















Teuton, et qu'il l'a bombardé 
Monsieur Atari Monde, tout 
bonnement. 











TOVARITCH ST 


inattendu: le Club Atari de 
Moscou nous a rendu visite, 
vous en saurez plus dans le 
numéro 54 de ST Magazine. 


Pitoyable: on estime à 1500- 
2000 le nombre de ST en URSS, 





des chiffres connus grâce au 
magouilleur qui assure le SAV 
en Pologne. 


Pittoresque: dans ce club de 
Moscou, il y a un type du KGB. 
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Petites 
Annonces 


te 


Mode d'emploi. Lisez d'abord une 
petite annonce, n'importe laquelle, au 
hasard, pour voir un peu le genre, et 
revenez, je vous explique ensuite. 
Voilà, dans une petite annonce, vous 
avez trois parties. Si ce n'est pas le 
cas de celle que vous avez lue, choi- 
sissez-en une autre, vous n'avez pas 
eu de chance. Première partie, on 
vous présente l'objet de la vente ou 
de l'achat, avec plus ou moins de 
détails. Ne vous laissez pas embobi- 
ner par des arguments trop faciles, 
genre “jamais servi”; vous avez déjà 
connu ça, Vous, un type qui ne se sert 
pas d'un ordinateur d'un demi-bâton? 
Non, vous voyez bien. Bon, ensuite, 
pour une vente, on vous indique com- 
bien l'auteur de la PA en veut, en 
francs français. C'est parfois à 
débattre, c'est à dire que vous avez le 
droit de négocier, vous vous en tire- 
rez avec une ristourne de 200 ou 300 
francs et vous aurez le droit de pen- 
ser que vous êtes un type à qui on ne 
la fait pas, des marchandeurs comme 
vous on n'en fait plus. Et pour 
contacter le type qui a passé l'annon- 
ce, c'est la troisième partie, on vous 
donne ses coordonnées, c'est ça qui 
est super avec les petites annonces, 
on se fait plein d'amis. On décroche 
son téléphone, on compose le numé- 
ro, et on dit “Bonjour, c'est pour 
l'annonce que j'appelle / mon nom à 
moi c'est Marcel / Je suis un rappeur 
fantastique / et de ton matos j'en 
veux bernique / tu peux te le carrer 
dans l'agneau / mon gars.” et on rac- 
croche aussi sec, Bon, non, c'est pas 
comme ça, il faut appeler aux heures 
qui sont données, selon le principe 
“avant l'heure c'est pas l'heure après 
l'heure c'est plus l'heure”, et deman- 
der la personne dont le prénom est 
parfois donné. Avec ça, si vous n'y 
arrivez pas, c'est que vous êtes vrai- 
ment trop ahuri, c'est bien la dernière 
fois que j'éxplique un truc aussi con, 
on m'avait bien conseillé de choisir un 
autre boulot mais alors là c'est un 
peu fort. Bon, ciao, bonne chance, et 
ne répondez pas aux chaines, c'est 
salades et compagnie. 


Si vous voulez passer une PA à votre 
tour, renvoyez le bon inséré dans ST 
Magazine, ça coûte zéro franc zéro 
centime, écrivez proprement et rien 
que des choses honnêtes, parce que 
les pattes de mouche, les bulletins 
raturés, avec 3 couches de Typex et 
les annonces pour copies de softs 
piratés, vous pouvez vous les rouler 
en pointe, ça passe pas, il y a suffi- 
samment d'annonces honnêtes et 
bien écrites pour qu'on se les casse 
pas à déchiffrer les petits tas d'encre, 
merci, soyez sympas avec le petit 
personnel, 


PROVINCE VENTES 


Vends STE + émulateur PC 
Supercharger (2400 francs) + jeux 
STE falcon 1 et 2 (300 francs) + 
Builderland (100 francs). Monsieur 
Houelle, 48 avenue Préssensé 69200. 
Tél: 78 09 08 34. 





Vends STF double face + SM 124 + 
Ultimate Ripper + Joystick + nom- 
breux livres + très nombreux softs. 
Offre TI-95 Procalc en cadeaul Tél: 62 
39 71 41, le soir. 


Vends 520 STE Atari + moniteur cou- 
leur + manette + nombreux jeux + 
boite de rangement + kit télécharge- 
ment, sous garantie, 3700 francs. Tél: 
35 37 26 36, après 20 heures. 


Vends 520 STF + Péritel + originaux 
(Batman, etc) + démos + 10 disks 
vierges, 2000 francs. Tél: 20 49 90 71, 
région Lille, 


. Vends Atari 520 STF + free boot + 40 
disks + jeux originaux + livres, le tout 
pour 2200 francs, à débattre. 
Préférence Bretagne ou Poitou. 
Cherche Archimedes. Tél: 97 37 79 
56. Christophe Planty, 5 rue de 
Ludwigshafen, 56100 LORIENT. 


Vends 520 STF (double face) + nou- 
velle souris + sélecteur de face + 
Deluxe, Maupiti, Space Quest Ill, 
LC10 couleur + SC1224 couleur + 
disquettes + boite + jeux, 6490 
francs. Tél: 56 74 95 24. 





Vends 520 STF 1Mo, moniteur cou- 
leur, 2 joysticks, 200 disks, 2 boites, 
Flight Simu-lator, 9 originaux, cable 
Null Modem, 3 livres, 75 journaux, 
8800 francs à discuter. Nicolas- 


Romain Blaizot, Domaine du 
Hautbois, 14800 Deauville. Tél: 31 88 
78 38. 





Vends Atari 520 STF gonflé à 1Mo 
(2500 francs), moniteur couleur 
Philips CM8832-11 sous garantie 
(1500 francs), lecteur externe 31/2 
Roctec RF302R sous garantie (500 
francs). Tél: 94 83 91 21, après 21 
heures, 





Vends Atari 520 STF gonflé à 1Mo + 
moniteur couleur SC1425, 3500 
francs le tout. Tél: 27 81 98 93, uni- 
quement Région Nord. 





Vends Atari 1040 STF + disque dur 
20Mo + AT Speed + moniteur mono- 
chrome et adaptateur couleur + nom- 
breux softs PC et Atari, le tout pour 
7500 francs (région Caen). Tél: 31 43 
92 69. 





Vends 1040 STF étendu à 3Mo + 
SM124 + SC1425 + inverseur vidéo, 
5000 francs. Tél: 27 25 92 25, après 
20h. 


Vends 1040 STF + moniteur couleur 
CM 8802 + moniteur monochrome 
SM124 + lecteur externe + Free Boot 
+ Trackball + joystick + livres et 
revues + nombreux programmes 
(jeux, programmation, aventure), TBE, 
6800 francs. Tél: 94 47 92 O9, 


Vends 1040 STF Janvier 89 (1900 
francs), disque dur Megafile 30 
Janvier 90 (2500 francs), le tout en 
très bon état. Tél: 48 65 58 27, 
Bourges. 





Urgent! Vends Atari 1040 STF (TBE, 
06/89) + moniteur couleur SC1425 + 
freeboot + utilitaires + jeux + démos + 
boite (Note Du Claviste Feignasse 
Comme Pas Deux: boite? Eh, les 
kids, si vous commencez à vendre 
des boites, des cartons, des embal- 
lages, je suis pas prêt de me repo- 
ser...) + manette : 4800 francs! Tél: 27 
26 67 30 après 18h, Cyrille. 





Vends 1040 STF + moniteur mono- 
chrome + SH205 + souris + divers, le 
tout en bon état, 4500 francs à 
débattre. (Note Du Claviste Effaré: et 
ton numéro de téléphone, je le tire 
aux dés? Baaaaananel) 





Vends Atari 1040 STF monochrome + 
disque dur 30Mo + lecteur 51/4 + 
imprimante Brother 1109 + boitier ali- 
mentation 200W + logiciels: 9000 
francs. tél: 28 26 87 08 ou 20 47 09 
80 (NDC: 807 50? Ecrivez propre- 
ment, Svp). 





Vends Atari 1040 STF + SM124 + 
imprimante Star NL10 + accessoires 
+ nombreux logiciels, pour 5000 
francs. Tél: 80 92 18 87. 





Vends Atari 1040 STF + SM125 + 
imprimante, 80 logiciels et divers 
accessoires, sur département 42. Tél: 
77 80 16 10, Romuald. 





Vends 1040 STF Freebooté, très bon 
état, très bas prix, avec ou sans nom 
breux logiciels. Tél: 74 58 60 15, 
Hervé. Recherche logiciels profes- 
sionnels. 





Vends Atari 1040STE (2Mo) + disque 
dur Omikron 32Mo + SM124 + drive 
externe + handy Scanner, 7000 
francs. Tél: 42 79 56 02, Christian 
Roucaimol, Vitrolles. 





Vends Mega ST1, moniteur mono- 
chrome, disque dur 20Mo, lecteur 
externe, imprimante 9 aiguilles, 
accessoires, logiciels, revues, pour 
9500 francs. Vente séparée possible. 
Tél: 65 30 10 %. 





Vends Mega ST1, moniteur couleur, 
disque dur 30Mo, digitaliseur vidéo 
Vidi ST + Miximage, livres, logiciels, 
pour 12000 francs. Tél: 41 48 24 64, 
après 19h, Philippe. 





Vends Mega ST1 mono (3500 francs), 
disque dur Megañile 30 (3000 francs), 
imprimante 9 aiguilles (800 francs). 
Tél: 53 54 14 32, Dordogne. 





Vends Mega ST1 + disque dur 32Mo 
+ écran couleur + imprimante Star 
LC10 + très nombreux logiciels + 
joystick. Le tout pour 10000 francs. 
tél: 76 90 45 70, après 18h. 








Vends Mega ST1, garantie 11 mois, 
souris, joystick, logiciels programma- 
tion, bureautique, jeux, 5000 francs à 
débattre. Tél: 79 08 62 17, Eric 
Fournier, 





Vends Mega ST1 + écran monochro- 
me + divers: 3700 francs. Tél: 91 81 
78 34. 





URGENT. Vends Mega ST1 (Juin 89) 
+ moniteur couleur + SM124 + LX800 
(Janvier 90) + drive Cumana 31/2 DF 
720Ko + livres + GfA Basic + 100 dis- 
quettes + joystick + tapis souris + 
switcher de moniteurs + cäble Minitel, 
le tout 6400 francs. Tél: 99 00 10 07. 





Vends Mega ST1 + Megafile 30 + 
moniteur monochrome (le tout 
d'octobre 90) + Le Rédacteur v3.10 + 
Timeworks + nombreux logiciels origi- 
naux. Tél: 49 67 10 27 le week-end 
(département 79). 





Vends Mega ST1 4Mo + Megañile 30 
+ SM 124 + piano-synthé Midi + 
divers, 11000 francs. P. Pavan, 2 rue 
du Lac, 25660 SAONE. Tél: 81 55 80 
77. 





Vends Mega ST2 + logiciels (5000 
francs), disque dur SH205 (2000 
francs). Tél: 98 48 22 13, après 19h, 
ou le week-end. 





Vends Mega ST2 + SM124 + lecteur 
externe 31/2 double face +130 logi- 
ciels: Le Rédacteur 3, Calamus, VIP 
Pro, Fun Face, Le Dessinateur, 
Outline + musique + langages + utili- 
taires + jeux + disquettes + boites de 
rangement + filtre + revues, le tout 
9500 francs. Tél: 53 07 02 89, heures 


repas. 





Vends Atari Mega ST2 + SC 1224 
(6400 francs), disque dur 85Mo (DMA 
+ SCSI) sous garantie (3600 francs). 
Tél: 61 08 57 92, ou 61 32 82 50. 





Vends Mega ST2 + disque dur 20 Mo 
+ logiciels, peu servi. Tél: 99 41 74 
60, en semaine, le soir. 





Vends Unité Centrale Mega ST2, 
excellent état, 3500 francs à débattre. 
Tél: 88 41 72 35, heures bureau, 
demandez Jean-Luc Evrard, 
Strasbourg. 





Vends 520 STF, 2.5Mo de RAM + 
Megafile 30 + drive externe + free- 
boot + moniteur SM124 + nombreux 
logiciels, 7500 francs. Tél: 44 87 02 
65 (bureau), 23 96 12 22 (le soir). 





Vends Atari 520 STE à 2Mo + joystick 
+ souris + 50 disquettes (PAO, MAO, 
jeux). Faire offre le week-end. 
Cherche contacts Mega STE. Tél: 73 
72 20 75, Sébastien. 


Vends Mega ST4 Tos 1.4 + disque 
dur 30Mo + écran haute résolution + 
imprimante laser + 2 toners neufs, 
pour 12500 francs. Dernières versions 
Calamus, Le Rédacteur, Calligrapher 
Pro, Calcomat 2+, etc. Tél: 41 87 18 
31 (Angers). 





Vends ST4 + Megafile 60 + PPM, 
Calamus, Arabesque, Lazy Paint, etc, 
pour 10000 francs. Scanner Canon 
X12, 5000 francs. Tél: 44 78 45 95. 





Vends solution complète micro-édi- 
tion: Mega ST4 + SM 124 + disque 
dur 30 Mo + Handy Scanner 400 dpi 
+ très nombreux logiciels, le tout pour 
16000 francs. Tél: 56 81 91 21. 





Vends Atari TT30, 8Mo + écran cou- 
leur multi-sync + écran A3 + CD Rom 
Atari + Devpac?2 développeur + Star 
LC 24-10, le lot pour 36000 francs ou 
faire offre séparée. Tél: 61 54 75 30. 


Vends écran MegaVision 19" N&B 
pour Mega ST (7000 francs), moniteur 
couleur Atari (1200 francs), Epson 
LX80 + ruban (1200 francs). Tél: 98 47 
38 23, laisser coordonnées. 





vends moniteur monochrome Philips 
(600 francs), 6 barrettes SIP x 256Ko 
(400 francs), séquenceur Yamaha 
QX21 (700 francs). Cherche contacts 
sérieux STE sur Vendée. Tél: 51 51 19 
34, Bernard. 





Vends Megafile 30, état neuf (1800 
francs), Package Emulation Mac: 
Spectre GCR + ROMs + T-Script + 
driver imprimante (2900 francs), 
Package ST Replay (400 francs). Tél: 
56 05 12 53 (domicile), 56 57 32 47 
(bureau). 





Vends disque dur Megafile 30Mo, 
excellent état, 2800 francs. Tél: 46 84 
33 78, le soir, Rochefort. 





Vends digitaliseur Vidi ST + Miximage 
(900 francs), 4 barrettes SIMM 256ko 
(800 francs la paire), synthétiseur DX7 
+ Flycase, état neuf, 7000 francs. Tél: 
55 93 28 52 (après 18 heures), 





Vends lecteur externe Atari ST neuf 
sous emballage, simple face, 450 
francs + nombreux softs. Tél: 68 84 
08 78. 





Vends lecteur externe DF + 
Hardcopieur (1000 francs, sous 


garantie), cartouche Master Sound + 
cable (200 francs), compilateur GfA 
3.08 (150 francs). Tél: 59 92 16 51. 


Vends lecteur de disquettes 5"1/4 
360/720Ko + 140 disquettes (1000 


‘francs), moniteur monochrome + 


adaptateur Péritel (400 francs), 512Ko 
de RAM (400 francs). Tél: 63 47 58 
64, Christophe. 


Cause changement scanner, vends 
Handy Partner (pack: scanner Golden 
Image + logiciel Image Partner), sous 
garantie, le tout pour seulement 1500 
francs. Tél; 79 25 40 69, Didier. 


Lille: vends imprimante Mannessman- 
Tally 80S (compatible Epson), 9 
aiguilles, 700 francs. Tél: 20 23 57 98, 
après 18 heures. 


Vends imprimante Star LC10 très peu 
servi avec cordon + Calligrapher 
Junior. Prix: 1400 francs, vente sépa- 
rée possible. Tél: 99 30 08 61. 





Vends imprimante Citizen Swift 24 
noir et couleur sous garantie + un 
ruban noir + 4 rubans couleur + 
Flexidump+, le tout pour 3300 francs. 
Tél: 41 87 18 31 (Angers). 





Vends imprimante à jet d'encre 
Diconix 150 Plus (1900 francs), moni- 
teur Commodore 1084 (1300 francs), 
original Calligrapher Pro (400 francs). 
Olivier Fabrègue, 18, rue Villons les 
Buissons, 14000 CAEN. 





Vends imprimante couleur Canon 
PJ1080A. Tél: 68 26 30 71. Robert 
Vigean, 11380 MAS CABARDES. 





Vends SLM804 + DME, peu servie. 
Tél: 56 04 17 07, heures repas. 


Vends Laser SLM 804: 7500 francs. 
Matricielle 9 aiguilles pour 
Commodore 64: 700 francs. Tél: 87 
30 56 28, Pierre, après 18 heures. 





Vends extension mémoire STE 512Ko 
(350 francs), cartouche Multiface (350 
francs), Livre du GfA Basic (100 
francs) + 20 disks jeux originaux. Tél: 
93 13 49 84 (Nice). 





Vends lots de 16 RAMs 41256 pour 
étendre STF à 1Mo de mémoire, pour 
400 francs. Tél: 61 70 46 17, après 
18h, Franck. 





Brade nombreux livres ST (GfA, C, 
Assembleur) + nombreux accessoires 
+ docs + softs. Tél: 43 06 65 81. 





Vends ou échange: Basic GfA 3.0 
(350 francs), livre Trucs & Astuces en 
GfA (150 francs), Livre du GfA (120 
francs), livre 1ST Word+ (150 francs). 
Cherche Basic 1000D, Transfile ST 
(pour Sharp). Tél: 96 74 68 67, 
Gérard, St Brieuc. 


Vends cartouche Ultimate Ripper 
neuve (550 francs). Tél: 61 31 92 54, 
J-Christophe. 





Vends cartouche Multiface (400 
francs) Psion Organiser 2 XP + illisible 
+ Datapack 64Ko (1800 francs), car- 
touche FM Melody Maker pour STF 
(500 francs). Tél: 88 95 07 87. 





Vends originaux Tennis Cup et 
Lemmings 300 francs chacun. 
Frédéric, 47 rue Lamendin, 62138 
DOUVRIN. Tél: 21 40 90 02, (Note du 
Claviste Las: eh bé et ton nom, fada?) 





Vends GfA-Assembleur/ Debugger 
(300 francs), GfA 3.5 (100 francs), 
Multiface ST (350 francs), Cyberpaint, 
le tout sur Atari ST. Tél: 89 66 45 50. 





Vends démos ST les plus récentes, 
enveloppe timbrée pour liste complè- 
te. David Ducassou, route de Mon- 
ségur, 40700 HAGETMAU. Tél: 58 79 
43 01. Qui peut m'imprimer des PI1 
en couleurs? 


Urgent! Vends originaux, livres sur 
STF/E, vends lots disks 31/2 (par 
10), boites posso. Sylvain Bail, 5 ave- 
nue Louis Blériot, 44340 BOUGUE- 
NAIS. 


Vends pour Atari STF/E: Dames 
Simulator (140 francs) + Beach Volley 
(150 francs). Thierry Durand, 5 allée 
Paul Gauguin, 47510 FOULAY- 
RONNES. Tél: 53 95 62 26, le soir. 


Vends originaux pour ST: ST Replay 
Pro (1000 francs), GfA-Raytrace (350 
francs), GfA Artist (350 francs). Tél: 94 
95 40 82, après 17 heures, Alexandre. 


Vends Pack GfA (disks + manuels), 
neuf, 700 francs le lot, ou Basic 3.07 
+ compilateur 3.03 (500 francs), GfA 
Assembleur (300 francs), Kit téléchar- 
gement (80 francs). Tél: 56 37 24 56, 
le soir, Patrick, à Pessac. 
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Suite vente ST, reste 15 originaux, 
revues et démos. Stéphane Thullier, 9 
rue G.Basquin, 59810 LESQUIN. 





Vends démos et disks magazines les 
plus récents. Liste contre un timbre 
(Note Du Claviste Etonné: c'est quoi 
ce trafic?), sérieux et rapide. David 
Ducassou, route de Monségur, 40700 
HAGETMAU. 





Vends ou échange: GfA 3.0 (350 
francs), Livre du GfA (120 francs), 
Trucs et Astuces en GfA (160 francs), 
Livre de 1ST Word (180 francs). 
Cherche Basic 1000D, Transfile ST. 
Tél: 96 74 68 67. 





URGENT. Vends Super Charger 1Mo 
version 1.50 avec nombreux softs PC 
(Windows, PC Tools, etc), neuf, pour 
2500 francs. Vends IMG Scan (800 
francs), lecteur externe 5"25 40/80 
pistes (1000 francs). Tél: 72 51 17 94, 
P. Mathé, le soir. 





Pour imprimante 9 aiguilles: soft de 
téléchargement de polices qualité 
courrier, 60 francs tout compris (Note 
Du Claviste Pas Chié: voir aussi 
Utils_FX80 dans ce même canard, 
pas cher, beau). Tél: 99 99 31 98, en 
soirée. 





Vends pour 520 STE jeux originaux: 
Explora 3 (150 francs), Powermonger 
(150 francs), Sim City (150 francs), 
BAT (200 francs). Tél: 86 65 37 08, 


Philippe. 





Vends originaux + boites: RVF Honda 
(100 francs), Austerlitz/ Waterloo (90 
francs), Midwinter (150 francs), F-19 
(150 francs), Resolution 101 (120 
francs), Sherman M4 (100 francs), 
ST/STE. Tél: 78 84 88 96. 





Vends très bas prix ou échange plus 
de 500 démos et Freeware pour 
ST/STE (musiques, pirates, X, utili- 
taires). Demandez ma liste gratuite à: 
Frédéric Houet, 20 rue des Moissons, 
51100 REIMS. 





Vends pour ST/STE STOS Basic 2.5 
(120 francs) + programmes + STOS 
Paint, Colossus Chess X (120 francs), 
le tout d'origine. Tél: 78 84 88 96, 
Stéphane. 


Vends logiciels DP et originaux jeux, à 
partir de 5 francs (démos, jeux, utili- 
taires...). Demandez ma liste. Tél: 22 
51 84 01 ou 22 51 96 85 après 18 
heures. 


Vds logiciels LE REDACTEUR 3.01 
(500 francs) et GESTOCK 3.03 (600 
francs). Tél: 32 31 23 36 (heures 
bureau). 





Vends jeux originaux sur ST (entre 50 
et 100 francs): Operation Stealth, 
Titan, Skweek, Barbarian 2, Knight 
Force, Bloodwych, Tiger Road, 
Krypton Egg, GfA 2.02, Fun Face, 
Maths CM (Note Du Charmant 
Claviste: ce sont des jeux, ça?). 
Téléphonez vite au 93 74 41 41. 
Matthieu Mangan, La Pinède de 
Valbosquet, 905 chemin du 
Malbosquet, Villa 5, 06600 ANTIBES. 





Vends Supercharger (2300 francs), 
Mega ST1 (3900 francs), disque dur 
SCSI.42 Mo (2500 francs), Notator 3.0 
(3300 francs), serveur Must (1200 
francs). Tél: 78 25 12 20. 





Vends émulateur PC Supercharger 
1Mo très peu servi. Tél: 59 30 50 69, 
Pau, 


Vends Spectre GCR 2.65C, garanti 
jusqu'à fin 91. Tél: 73 27 91 48, 





Vends Téléstrat Oric (Note Du 
Claviste Donnant Dans Le Private 
Joke: une victime de plus!) avec 2 
drives 3” + K7 de jeux + livres + 
Théoric. Tél: 96 47 04 54, le soir, 
Yann. 





Vends Oric Atmos 48Ko (Note Du 
Claviste Plié: mais c'est un complotl) 
+ lecteur disquette Jasmin 2 + bloc 
alimentation + logiciels utilitaires et 
jeux + livres. Imprimante Seikosha 
GP500A, parfait état. Revues 
“Théoric" 1 à 37. Faire offre. Tél: 27 
49 94 52. 





Vends Tandy 1000EX, moniteur cou- 
leur, imprimante Tandy DMP132 + 
docs, jeux, divers, le tout pour 6000 
francs. Tél 66 53 17 58 de 15 à 18h. 





Vends Portfolio + interface parallèle + 
cables: 1200 francs. Vends impriman- 
te DMP compatible Epson, 500 
francs. Tél: 21 84 07 37, après 18h. 





Vends Olivetti portable 7 kilogrammes 
M211 43V, année 90, 40Mo, 16000 
francs (valeur 38000), très bon état. 
Tél: 40 64 82 01. 





Vends Amstrad 464 + moniteur cou- 
leur avec le guide Amstrad ainsi que 
de nombreux jeux, le tout en très bon 
état: 2000 francs. John Maes, 2 rue 
“u k}s 59100 ROUBAIX. Tél: 20 24 
79 56. 





Vends C64 + lecteur disks + impri- 
mante Star SG10C (1000 francs 
seule) + nombreux jeux et utilitaires, 
2500 francs. Tél: 56 85 36 12, 
Bordeaux. 





Vends C64 + unité K7 + unité dis- 
quettes 5"1/4 simple face + impri- 
mante MPS801 + adaptateur Péritel + 
Synthétiseur vocal + logiciels + livres, 
possibilité moniteur, prix 2000 francs. 
Tél: 99 55 88 50. 





Vends kit Z80A microprocesseur MPF 
1B, alimentation + docs, 1500 francs. 
Tél: 87 82 32 98, Albert, après 18h. 





Vends synthé Casio CT670, 2500 
francs à débattre. Vends CD Port 
Philips, 600 francs (valeur 1200 
francs). Cherche Synthé K1 pas cher. 
Tél: 53 04 27 21. 





Vends Track 24 (300 francs), Studio 
Conceptor (500 francs), Sim City (200 
francs). Tél: 67 26 92 16, entre 15h et 
20h. 





Vends Pro24 v3.0 + clé + doc, 1500 
francs. Tél: 43 03 20 42, Mayenne, 
Jean-Michel, week-end. 





ACHATS PROVINCE 


Achète moniteur monochrome SM124 
d'occasion. Faire proposition à 
Monsieur Commageat Francis, 73 
avenue du Capitaine André Buffet, 
19100 BRIVE. 





Achète Great Courts 2 et Strip Poker 
2+ uniquement sur 1040 STE (à prix 
budget)! Laurent Meslin, 86 rue 
Thiers, 33500 LIBOURNE. Tél: 53 71 
17 65. 





Recherche digitaliseur vidéo “Vidi ST” 
pour Atari. Faire offre au 61 64 99 23, 
Eric Lamant. 


DIVERS PROVINCE 


Cherche dans la région de Rouen un 
club dédié au ST. Jérôme Balant, 11 
rue Léon Devaux, 76240 BONSE- 
COURS. 





Réalise interface SCSI avec logiciels 
pour disque dur, scanner, réseau, etc. 
Pour ST, Mac, PC. Tél: 19 32 41 62 
51 36. 





Echange jeux Atari contre jeux inté- 
ressants. Pirateurs s'abstenir, Tél: 19 
3 259 510 783, après 19 heures. 





Vends programme numérologie en 
GfA 3, création personnelle pour 
monochrome. Programme: 50 francs, 
programme + source: 70 francs. 
Monsieur Blassiaux, chemin d'Au- 
baygues, 34700 Soubes. Tél: 67 44 
35 74. Peux le convertir en GfA 2. 





Lyon: échange collection de timbres 
contre chassis, volant, roues, ou 
moteur d'Alfa Sud. Contactez OYA 
SHIVO sur le 3615 JELAIDANLOS, 





Recherche graphistes, musiciens, 
coders 68000 sur STE pour créer des 
démos. Envoyez disk à Thierry 
Durand, 5 allée Paul Gauguin, 47510 
FOULAYRONNES., 





Cherche renseignements sur le logi- 
ciel “Anamorphoses à miroir” (ST 
Mag n°11). Tél: 91 81 78 34. 





Etudiant donne cours programmation 
en GfA 3: 30 francs l'heure. Tél: 20 02 
71 69, Mickael. 





Cherche dans région Lyonnaise 
contact sérieux pour musique, possè- 
de PRO 24 III, U-220, 21 ans (possibi- 
lité création groupe (Note Du Claviste 
Hétéro: et plus si affinités?). Tél: 78 
84 88 96, Stéphane. 


Codeur recherche graphistes et musi- 
cien(s) dans le 29 pour création de 
démos... Tél: 98 07 88 67, Patrice. 


URGENTISSIME!  Recherchons 
coders, graphistes et musiciens pour 
création démos ou autre sur Angers, 
Tél: 41 44 44 81 (David), 


Lyon. Cherche nouveaux membres 
pour l'association “Les Amis de 
Klaus”, réunions, débats, prome- 
nades, contactez OYA SHIVO sur 
3615 PLUCEGRANPLUCEBETE. 


Petites 


Annonces 


Cherche tête imprimante Citizen Swift 
24 (même en panne), échange contre 
livres ou logiciels originaux. Tél: 68 26 
30 71. Robert Vigean, 11380 MAS 
CABARDES. 








Cherche programmes Midi et 
Midifiles, et vends synthé Casio 
MT260 Midi pour Atari, 1500 francs. P 
Pavan, 2 rue du Lac, 25660 SAONE. 


REGION PARISIENNE VENTES 


Vends Atari 520 STF + joystick + prise 
Péritel + souris + jeux (news), pour 
3200 francs à débattre. Tél: 60 60 63 
24, Guillaume. 


Vends Atari 520 STF étendu à 1Mo, 
Tos 1.4 + moniteur SM 125 + disque 
dur SH205 + drive externe 720 Ko + 
joystick + utilitaires (GfA 3.0, dessin, 
traitement de texte, tableur, etc) + 
jeux. Le tout pour 5000 francs. Tél: 47 
86 13 12, le soir, Fabrice Lacharme. 


Vends 520 STF simple face, 
Calcomat+, GfA 2, Datamat, Flight 
Simulator, Gunship, Starglider, Crazy 
Cars, 1500 francs. Tél: 48 44 88 52, 
James. 


Vends Atari 520 STF + moniteur cou- 
leur SC1425 + Citizen 120D + Manoir 
de Mortevielle, ZZ Rough, Mac3 + 
nombreux jeux et utilitaires, le tout 
5000 francs, TBE. Tél: 46 68 07 09, 
Laurence (Note Du Joli Claviste: 
purée, une nana qui vend son ST, 
c'est d'un tristel), 


Urgent! Vends 520 STE exceptionnel, 
super moniteur couleur SC1435 + 
Cyber Studio + jeu. Le tout cédé pour 
4600 francs. 91230 MONTGERON. 
Tél: 69 03 52 33, Frédéric. 


Vends 520 STF + moniteur couleur + 
revues + logiciels, 3500 francs. Tél: 
48 44 10 37. 


Vends 520 STE, peu servi + joystick + 
3 jeux originaux, 2500 francs. Tél: 60 
10 40 15, Jean-Baptiste, week-end 
seulement. 


Vends Atari STF + joystick + souris + 
jeux.originaux + livre + revues, 3000 
francs. Vends lecteur externe double 
face 3"1/2, 500 francs. Tél: 39 57 64 
89, Azdine. 


Vends Atari 520 STE + moniteur cou- 
leur SC 1224 + 50 jeux et utilitaires + 
émulateur PC + souris + joystick + 
manuels, un an, 4200 francs à 
débattre. Tél: 34 16 05 25, Guillaume, 
Val d'Oise, 


Vends 520 STE 1Mo, lecteur 3"1/2, 
SM 124, SC 1425, switch, joystick, 
nombreux softs (jeux, Script II, Paint 
Designer, Degas, etc), valeur 12000 
francs, vendu 7000 francs. Tél: 45 31 
23 59 après 20h. 


Vends Atari 520 STF, double face, : 


très bon état, extension mémoire 1Mo 
+ free boot installé + nombreux 
magazines (Joystick, ST Mag, Gend) 
+ nombreuses docs (GfA Basic, 
Neochrome, Logo...) + nombreux 
disks + souris + joystick + housse + 
cables sous emballage, pour 3600 
francs. Tél: 60 84 08 98. 


Vends 1040 STF (3500 francs), impri- 
mante (1000 francs), MT32 (1500 
francs), Spectre GCR (2500 francs), le 
tout 7000 francs. Tél: 69 00 91 34, P. 
Mahé. 


Vends 1040 STF + SM 124 + Megafile 
30 + Star LC 24-10 + nombreux logi- 
ciels + meuble informatique. Jamais 
servi! 10000 francs. Tél: 45 76 88 04, 
après 19h, Laurent. 


Vends 1040 STE + souris + cable 
Péritel + jeux (BAT, Crazy Cars 2, etc) 
+. Utilitaires + GfA Basic + Devpac, 
très bon état, pour 3500 francs. Tél: 
43 76 68 42, après 18 heures. 


Vends 1040 STF + moniteur SM124 + 
lecteur externe 31/2 + imprimante 
Star LC10 + Spectre GCR 3.0 + logi- 
ciels ST et MAC: 6000 francs. Tél: 46 
83 69 90 ou (16) 44 57 18 39. 


Vends Atari 1040 STF + moniteur 
couleur + imprimante Star LC 10 
2ème édition + programmes, etc, 
6000 francs à débattre, Tél: 45 58 09 
20, Julien J-M. 


Vends Atari 1040 STF + moniteur 
monochrome SM124 + imprimante 
Citizen 120D + joystick + cable Péritel 





+ softs + livres. Le tout en très bon 
état: 3900 francs. Tél: 69 07 14 19, 
Monsieur Hello, en soirée. 


Vends Atari 1040 STF + moniteur 
couleur Commodore 1084 + lecteur 
externe + imprimante Star LC10 + 
cable Minitel + programmes profes- 
sionnels + jeux, le tout pour 4800 
francs. Tél: 45 00 98 79, Christian. 


Vends 1040 STF + carte PC-Ditto 2 
installée sous garantie + carte horlo- 
ge: 3500 francs, ou échange contre 
Mega ST. Tél: 39 68 68 73, le soir, 
Patrick Greslin. 


Vends Atari 1040 STF + moniteur 
monochrome SM125 + imprimante 
matricielle Fuji + lecteur externe 
Cumana + disque dur 20Mo + nom- 
breux logiciels (Rédacteur...), 7000 
francs. Tél: 34 77 21 57. 


Vends 1040 STF + moniteur couleur 
SC1425 + 2ème lecteur SF314 Atari + 
souris + joystick + logiciels: 4800 
francs. Tél: 45 69 51 38. 


Vends Mega ST1 + moniteur couleur 
SC1425, parfait état, logiciels + souris 
+ joystick, le tout pour 6000 francs. 
Tél: 60 68 45 92, Melun. 


Vds Mega ST1 + Megafile 30 + moni- 
teur SM 124 + nombreux logiciels 
(utilitaires, jeux). Tél: 31 26 84 58. 


Vends Mega ST1 + SM124 + disque 
dur Megafile 30 + lecteur 51/4 + pro- 
grammes & livres (sous garantie), 
8000 francs. Tél: 47 84 18 49, Bruno. 


Vends Atari Mega ST1 + moniteur 
monochrome SM 124 + switcher 
écran, 4000 francs. Gilles Bourdon, 
25 boulevard d'Igny, 91430 IGNY. Tél: 
69 41 38 15. 


Vends Mega ST1 + SC1425 + disque 
dur 30Mo + 17 jeux + 21 utilitaires + 
n°1 à 21 Atari Mag + 16 ST Mag, 
14000 francs à débattre. Tél: 47 48 90 
11, Stéphane après 20h30. 


Vends Mega ST1 + moniteur couleur 
SC 1224 + Megapage + Supercharger 
V1.4 + DOS 4.01 + logiciels PC + logi- 
ciels ST (Tdt, PAO, dessin, jeux...), 
7500 francs. Tél: 48 60 13 30, après 
20 heures. 


Vends Mega ST1 {garanti un an) + 
moniteur couleur + moniteur mono- 
chrome + imprimante matricielle 9 
aiguilles + logiciels et commutateur 
vidéo, 7100 francs. Tél: 37 83 59 78. 


Vends Mega ST1 nu, très peu servi, 
prix à débattre. Tél: 85 80 91 15. 


Vends Mega ST1 + moniteur SM 124 
+ logiciels Calligrapher Pro + LDW 
Power + Wordup 2.1, l'ensemble ou 
séparé. Tél: 47 90 88 47. 


Vends 520 STE 2Mo + écran + impri- 
mante, 8000 francs, le tout sous 
garantie + disquettes jeux, PAO, 
musique, tous originaux, liste sur 
demande. Tél: 48 59 73 49, après 
21h. 


Vends 1040 STF 2,5Mo + PC Ditto 2 
(3800 francs), LQ500 Epson (2000 
francs), Handy Scanner (1000 francs), 
Spectre GCR (2500 francs). Tél: 48 40 
64 91. 


Vends Mega ST2, parfait état + moni- 
teur SM 124 + SC 1224 + lecteur 
5"1/4 + 320 disques. Le tout vendu 
8000 francs (valeur 14000). Tél: 34 89 
45 54, Alex, après 18 heures, 
Yvelines. 


Vends Mega ST2 + moniteur SM125 
+ modem CAP23 Minitel + souris 
optique, pour 5000 francs. Tél: 49 80 
21 00, Monsieur Denis. 


Vends Atari STE 2Mo (2900 francs), 
disque dur Megafile 30 (2600 francs), 
écran couleur Commodore 1084S 
(1700 francs), écran monochrome 
Atari SM125 (900 francs). Tél: 43 03 
42 37, Noisy le Grand. 


Spécial programmeur: vends STE 
2Mo + Megafile 30 + SM 124 + ST 
Replay 8, 8000 francs, livré avec C, 
GenST2, GfA, Omikron, Ressource 
Editor et plus de 20Mo de sources, 
Tél: 43 25 45 49, 


Vends Mega ST2 gonflé à 4Mo + SM 
124 + disque dur Megafile 30, 7000 
francs, garanti Décembre 91. Vends 
nombreux logiciels dont Arabesque 
Pro (1000 francs), Timeworks (500 
francs), G+ Plus (200 francs). Tél: 45 
81 45 31, Patrick. 


Vends STE 4Mo (4200 francs), 
Megafile 30 (2800 francs), barettes 


STE 256Ko (130 francs), 1Mo (320 
francs). Tél: 48 49 86 41, Jacky. 


Vends Atari Mega ST1 à 4Mo avec 
disque dur 30Mo, très bon état, 
garanti 18 mois, le tout à 8900 francs 
sans écran (livré avec anti-virus, 
répertoire vidéo, répertoire adresses, 
Sapristi, etc..). Tél: 45 84 01 22. 


Vends Atari ST4 + Profiler 44 + SLM 
804 + SM124 + camera N/B + 
Spectre GCR + nombreux logiciels, 
25000 francs. Tél: 43 25 64 64, le soir. 


Vends Mega ST4 + SM 124 + souris 
neuve + manette + logiciels PAO 
(Calamus, Outline, Didot), le tout pour 
6900 francs. Tél: 48 56 17 77. 


Vends Mega ST4, bi-TOS, monochro- 
me + couleur (Thomson), clavier RTS 
Mouse Genius 7, lecteur externe, 
6500 francs. Tél: 49 63 02 73, 
Monsieur Langlois. 


Vends Mega ST4 + SM124 + SC1425 
+ AT Speed, en très bon état, embal- 
lage d'origine, nombreux logiciels et 
jeux: 12000 francs. Tél: 48 93 07 35, 
après 18h, Pierre. 


Vends Mega ST4 + écran monochro- 
me + écran couleur + switcher + joys- 
tick, 9000 francs. Vends Lynx + 6 car- 
touches: 2300 francs. 1040 STF {alim 
à réparer): 2000 francs. Tél: 47 36 08 
28, Eric. 


Vends station PAO complète: Mega 
ST4 monochrome + Megafile 30 + 
laser SLM 804 + scanner type 10 + 
Publishing Partner Master + Image 
Partner + Reading Partner, le tout 
indissociable, Tél: 46 57 50 15, le soir, 
Pierre. 


Vends 520 STE 4Mo RAM (5000 
francs), moniteur couleur SC 1224 
(1800 francs), où l'ensemble pour 
6500 francs. Tél: 60 60 09 79. 


Vends extension 1Mo pour 520 STE: 
250 francs. Disquettes vierges TDK 
DFDD: 50 francs les 10. Tél: 39 59 60 
88, Philippe. 


Vends 2 mémoires SIMM 256Ko pour 
PC, Atari, Amiga, Mac: 180 francs. 
Vends disque dur 10Mo pleine hau- 
teur, 450 francs, Tél: 48 39 34 50, 


Vends barrettes SIP 256Ko, 300 
francs les deux. Tél: 47 80 61 05, 
Pascal, répondeur, 


Vends boitier Tower pour Mega ST + 
alim + connectique, 1000 francs à 
débattre. vends interface DMA-SCSI, 
600 francs sous garantie. Tél: 69 43 
38 79, Alexandre, après 20h. 





Vends Laser SLM 804 garantie un an 
avec toner, cédée 6000 francs. Tél: 
16 37 23 00 06 (département 28, à la 
limite du 78). 


Vends imprimante Star NL 10, com- 
patible Epson FX80. Installe extension 
RAM 2Mo sur 520 STF, Protechnic. 
Tél: 47 41 56 51. 


Vends imprimante Image Writer (1500 
francs), lecteur 5"1/4 (600 francs). Tél: 
30 90 78 49, Alain ou Nathalie. 


Vends scanner Canon 1X12F A4 à plat 
(5000 francs), laser SLM 804 2000 
sorties (5300 francs), Laser Postscript 
Turbo AST (17000 francs). Tél: 69 30 
91 46, Eric. 


Vends scanner à main Logitech avec 
repro Studio Jr, 32 niveaux de gris, 
400 dpi (Pack ALM) pour 1500 francs, 
excellent état. Tél: 64 97 96 11, 
Arnaud, 


A saisir, moniteur monochrome Atari 
SM 124 (neuf, allumé deux fois) (Note 
Du Claviste Con: et éteint au bout de 
combien de temps? On nous cache 
quelque chosel), 700 francs. Vends 
aussi commutateur monochrome/ 
couleur, 50 francs. Tél: 30 65 24 54, 
avant 17 heures, Monsieur Aouidad. 


Vends moniteur couleur SC 1425: 
1850 francs. Tél: 43 06 38 63. 


Vends moniteur couleur Philips + cor- 
don Péritel pour ST (RGB CM8535), 
650 francs. Vends convertisseur Midi 
Roland CP-40, 1300 francs. Vends 
Steinberg Pro12, 200 francs. Tél: 48 
70 03 30. 


Vends moniteur couleur Europhon 
(Pal/Secam), 1300 francs. Tél: 64 45 
71 24, laisser message. 


Vends moniteur couleur SC1435 
(1400 francs), Mark Williams C 3.09 + 
debugger source (700 francs. Neuf: 
2000 francs). Tél: 42 53 84 71, 
Thierry, répondeur. 


Vends disque dur Seagate ST 225 
20Mo + interface DMA SCSI sans 
carte adapteur, 1100 francs. Tél: 60 
01 58 06. 


Vends disque dur SH205 (2000 
francs), Le Livre de Gem, le Langage 
Machine sur ST, Musique et Midi, 
Graphismes et Sons sur Atari ST (300 
francs). Tél: 60 13 06 67. 


Vends disque dur SH205 (2000 
francs), carte DMA-SCSI converter 
(500 francs). Tél: 30 76 07 72, le soir 
après 20 heures, 


Vends Megafile 30 + Time Works, très 
bon état, 3000 francs. Lecteur exter- 
ne 5”1/4 (40/80): 1000 francs. 
Supercharger 1Mo v1.4 TBE: 1900 
francs. Tél:.39 80 77 37, Olivier, après 
18 heures. 


Vends magazines: Tilt (du 57 au 69) et 
ST Mag (34-49), 10 francs le numéro. 
Possibilité contact ST. Tél: 46 83 19 43, 


Vends livres: GfA Gem Up, Le livre du 
GEM, Applications sous Superbase, 
moitié prix. Tél: 48 51 53 37, le soir. 


Vends livres: GfA Basic (100 francs), 
GfA 3.0 (100 francs), GEM (100 
francs), langage machine (70 francs), 
graphisme (70 francs), graphisme 3D 
(100 francs). Tél: 43 75 92 66, poste 
242, J-L Vannier. 


Vends jeux originaux, 100 francs l'un 
+ GfA Basic 3.07 + compilateur 3.03 
+ GfA Assembleur (450 francs) + 
Ultimate Ripper (400 francs). Tél: 46 
28 62 92, après 18h. 


Je vends, cause départ, 4 logiciels 
originaux, neufs et complets, pour 
Apple Macintosh, à la moitié de leur 
prix public: Adobe Illustrator (2950 
francs), Quark XPress (3750 francs), 
Aldus PageMaker (4050 francs), Aldus 
FreeHand (2975 francs). Tél: 47 83 58 89. 


Vends Spectre 128 sans les ROMs 
(1200 francs), PC Ditto Il (1700 
francs), programmes gratuits avec 
chaque émulateur, Cherche contacts 
en émulation. Tél: 43 48 37 70, Paris. 





Vends jeux originaux STF/E avec doc 
et coffret, état neuf: Robocop 2, The 
Spy Who Love Me, Cadaver, de 18 à 
20 heures au 64 06 72 88, ou ruelle 
du Puits Pinart, 77111 SOLERS, 
demander Christophe. 





Vends originaux Atari avec factures: 
Publishing Partner Master 1.8 + cinq 
disques images: 1000 francs; 40 softs 


originaux à 25% du prix original, Tél: 
48 79 06 58, Daniel. 


Vends assembleur Devpac ST2 neuf 
(jamais servi) + modem: 800 francs. 
Tél: 48 22 73 19, 


Urgent! Vends Ultimate Ripper + 
docs, 810 francs. Sylvain Pillard, 37 
rue de l'Avenir, 93240 STAINS. Tél: 
48 26 11 47. 


Vends originaux: PC Speed STE (990 
francs), House Music (200 francs), ST 
Replay (300 francs), FM Melody 
Maker (400 francs), etc. Vends 1040 
STFC, prix à débattre. Tél: 43 58 60 
37, demandez Jipé. 


Vends originaux sur ST: 
Powermonger, Double Dragon, 
Starray, Thunderblade, 100 francs 
pièce, Nicolas Bronard, impasse Jean 
jaurès, 95540 MERY SUR OISE, Tél: 
34 64 84 06. 


Vends Devpac ST 2 (français, original, 
neuf) (voir ST Mag 49), valeur 875 
francs, vendu 490 port compris. Tél: 
42 36 48 70. Cyrille Richard, 50 rue 
Etienne Marcel, 75008 PARIS. 


Vends nombreux jeux originaux sur 
Atari 520 ST à moitié prix ainsi que 
diverses revues informatiques. 
Urgent. Tél: 45 84 26 54. 


Vends nombreux originaux, 100 
francs l'unité, 200 francs les 3: Xenon 
2, Forgotten Worlds, Hard Drivin', F16 
Combat Pilo, Dungeon Master, 
Starglider Il, etc. Tél: 34 77 98 05, 
Yves, après 20h30. 


Vends ou échange originaux pour 
Atari: Operation Stealth, Voyageurs 
du Temps, Pack GfA 30, Gescomptes 
- Gesbord, Deluxe Paint ST. 
Recherche simulations, Ultimate 
Ripper, Music Master sans MV16. Tél: 
64 29 11 59, Christophe, après 19h. 


Vends tableur graphique LDW Power, 
300 francs. Tél: 64 80 72 %. 


Vends Supercharger 1Mo v1.40, état 
neuf, très peu servi: 1900 francs. Tél: 
34 62 39 36, Gilles. 





A vendre logiciel “Protos", disquette 
et doc d'origine, 160 francs. Tél: 43 
34 82 07, heures bureau. 





Vends logiciels originaux Timeworks, 
Arabesque, Le Rédacteur, le tout 
1000 francs. Tél: 34 86 05 22, le soir. 





Vends lunettes Stéréotek pour 
CAD3D, permettant d'obtenir une 
vision 3D stéréostopique saisissante: 
1000 francs. Tél: 34 62 39 36, Gilles. 





Vends PC-AT 386-25 + disque dur 
44Mo + 5Mo RAM + lecteur 51/4 
1,2Mo et lecteur 31/2 1,44Mo + 
écran multi-sync Sony (1024x768) + 
carte graphique 1024x768 256 cou- 
leurs + souris + Windows 3, etc, pour 
15000 francs, encore sous garantie, 
acheté le 16/12/90. Tél: 43 28 09 44, 
département 93-94. 





Vends compatible 256-16, 2 lecteurs 
de haute densité, disque dur 40Mo, 
écran monochrome, 2 ports série, un 
parallèle, pour 8000 francs. Matériel 
neuf, un mois d'utilisation. Tél: 48 79 
16 27, Simon, après 22 heures. 





Vends console portable Atari Lynx + 
California Games + 2 jeux, très bon 
état, le tout 1000 francs. Contactez 
Christophe Torki, 4 rue Louise 
Lesieur, 94700 MAISONS ALFORT. 
Tél: 43 96 01 62, après 19h. 





Vends Sega (1 an) avec 5 jeux + 3 
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jeux intégrés + 2 manettes + pistolet, 
2000 francs. Tél: 64 04 06 89, 
Alexandre. 


Vends Amstrad PCW9512 complet 
avec imprimante, moniteur noir, dis- 
quettes, 4300 francs. Tél: 43 06 38 63. 


Vends Atari XE + jeux très bon état, 
valeur 2500 francs, vendu 1800 
francs. Tél: 43 82 54 56, après 18 
heures, Thierry. 94190 VILLENEUVE 
SAINT GEORGES. 


Vends Mac Plus, lecteur externe, 
sous garantie, nombreux logiciels, 
5500 francs. Tél: 43 28 58 91. 


Vends cartes mémoires 64 Ko pour 
Atari Portfolio, neuves, 600 francs 
pièce. Tél: 42 08 05 30, après 18 
heures. 


Vous possédez une HP48-SX et un 
micro à sortie RS232 (Votre STI)? Je 
vous vends le cable de liaison per- 
mettant de transférer toutes données 
entre vos deux machines. Prix: 150 
francs (port inclus). Envoyez un 
chèque à Monsieur Archour, 46 rue 
Victor Hugo, 94700 MAISONS- 
ALFORT. 


CHOIX 
*PA 


SUR 3615 
STMAG 


Vends Prophet 2000 + sons (5900 
francs), D110 + Edit ST + 2000 sons 
(3600 francs), M20 + câbles (1500 
francs). Le tout pour 9800 francs. Tél: 
64 36 17 84. 


Vends synthé Casio CZ 230$. Prise 
Midi, 99 sounds (4 programmables), 
boite à rythmes, etc. + transformateur 
Casio pour alimentation + doc, 1300 
francs. Urgen, très bon état. Tél: 42 
05 09 89, Christophe. 


Vends synthé programmable à 6 voix 
Roland Juno 2, 128 sons + 
Programmeur Roland + Pro 12, très 
bon état, 4200 francs (valeur 9000). 
Tél: 43 39 64 06, Olivier Garcia, 94. 


Vends Expander TX81Z Yamaha 
(1300 francs), moniteur couleur 
Thomson (1500 francs), moniteur 
monochrome SM 125 (700 francs). 
Tél: 47 93 03 47, C.S Lévine, 


Vends Notator Alpha, 1290 francs. 
Tél: 47 49 05 00, Eric, heures bureau. 


R.P. ACHATS 


1040 STF: cherche Maupiti Island, 
Dragon's Lair 2, Wrath Of Demon, 
Shadow Of The Beast (Note du Beau 
Claviste: pouah sur ST!). Stéphane 
Gouffault, 13 square Beethoven, 
78330 FONTENAY LE FLEURY. Tél: 
30 45 15 84. 


R.P. DIVERS 


Graphiste cherche équipe de pro- 
grammeurs pour création de jeux ou 
utilitaires. Tél: 48 22 73 19. 


Propose une méthode de cours 
d'assembleur pour débutants sur ST, 
par correspondance: méthode didac- 
tique, sérieuse et efficace. Contactez 
Cédric Javault (Note Du Claviste 
Gâteux: tiens ça faisait longtemps!) 
82 rue de l'Université, 75007 PARIS. 
Tél: 45 44 21 05 après 20h. 


Enfin un véritable catalogue de 
domaine public sur ST (Note Du 
Claviste Au Courant: et DP Mag, c'est 
du pipi de chat, peut-être?) Recevez 
notre disquette démo contenant notre 
catalogue en envoyant un disk 31/2 
et enveloppe et autotimbrée, Gamme 
NBC, 43 rue Berzélius, 75017 PARIS, 
(NDCAC: voilà, alors ça, ça s'appelle 
de la pub pour une société commer- 
ciale, et je veux pas vous dire ce que 
vous avez à faire, mais à votre place, 
les boites qui se font connaître par 
des PAs, je me méfierais…) 


EMPLOIS 


Graphiste confirmé recherche pro- 
grammeur confirmé pour créer jeu de 
rôle, aventure, action. Déjà fait 
planches, sprites, animation person- 
nages. Tél: 90 50 14 06, Jean-Luc. 
Très sérieux. 





Et qui a dessiné les mignons 
petits crobards tout partout 
sur toutes les pages? C'est 
Pibo! |! dessine bien, hein? Pu- 
rée, je dessinerais dix fois 
moins bien que lui, je serais 
content. Cette capacité à pou- 
voir coucher sur papier ce qu'il 
y a dans la tête, ce n'est pas 
donné à tout le monde, avouez 
que vous en crevez de jalou- 
sie. Moi aussi. Pour tout vous 
dire, j'aimerais pouvoir lui faire 
manger ses crayons, à Pibo, 
tellement je l'envie: pourquoi 
lui, pourquoi pas moi? 





Il y a tout simplement que des 
bonnes fées se sont penchées 
sur son berceau, quand il est 
né, il y a 27 ans. L'une lui a 
donné le talent, l’autre lui a of- 
fert le sens de l'esthétique, 
une troisième lui a refilé le 
sens de l'humour et la derniè- 
re, qui ne pensait qu’à partir 
en week-end, lui a donné le 
pouvoir de résister aux piqüres 
d'orties, ce qui ne sert quasi- 
ment jamais dans la vie d’un 
illustrateur, mais bon, c’est 
toujours bon à prendre et Pibo 
a gardé, à sa place vous auriez 
fait pareil. 






Mesdames et messieurs, 
veuillez faire silence et 
m'écouter deux minutes, ve- 
nez vous asseoir autour de 
moi, je vais vous confier un se- 
cret, sous vos yeux, ni une ni 
deux, je vais casser un 
consensus, suivez mes mains 
et trouvez sous quel verre est 
le dé bleu, allons, qui me suit? 
Attention, mettez vos billets 
sur le bord de la table, je 
prends des risques énormes, 
vous repartirez dans deux mi- 
nutes sans danger mais ma vie 
à moi sera changée, soyons 
généreux, mesdames et mes- 
sieurs, j'aurai dans deux mi- 
nutes la profession entière à 
mes baskets. 
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HOMMAGE 
AUX BONS 


TIENS ET ÇA 
VOUS SAVEZ CE 
QUE C'EST, CA? 


Les lecteurs, ils aiment bien 
savoir à quoi ressemblent 
ceux qui leur vendent la came- 
lote. Alors, comme les lecteurs 
ils y sont allés de leurs vingt 
francs, on va voir comment 
c'est fait, un Pibo. Pibo est 
grand, il est très grand, il est 
même encore plus grand que 
ça, c'est utile, je pense, pour 
un illustrateur (“ha il ne te plait 
pas mon dessin? -Boum-”), 
encore que je connaisse un 
autre illustrateur qui est tout 
petit, à côté, et qui se dé- 
brouillera pas mal le jour où il 
gommera tous ses vilains cô- 
tés, mais je me perds. Bon, 
Pibo, pour tout arranger, com- 
me s'il n'était pas assez im- 
pressionnant comme ça, il faut 
aussi qu'il soit Rocker, c’est 
d’ailleurs dans ce circuit Rock 
qu'on l’a déniché, il dessine 
pour des magazines, pour des 
salles et des radios Rock. 
Voilà pour la description, et les 
fans ont un auto-portrait pour 
le reconnaître, histoire qu'ils 





Ce que je vous ai montré, 
c'était un écran de surveillance 
d'un serveur de télécharge- 
ment, le plus ancien, le plus 
renommé, vous voyez de quoi 
je parle? Oui, voilà, celui-ci. 
Les animateurs constipés et 
pétochards peuvent voir les 
120 derniers caractères saisis 
par chacun d’entre vous, que 
vous écriviez des messages 
en Bal, que vous discutiez en 
dialogue, ou que vous consul- 
tiez les petites annonces, etc. 
Les touches de fonctions sont 
indiquées, les textes, tout ce 
qui permet de vous suivre par- 
tout sur le service. Vous pen- 
siez que votre correspondance 
ne regardait que vous, vous 
19:04 BAL 
19011683 


. JE VOUS FELICITE POUR VOTRE TELECHA 
RGEMENT .H.IL EST RAPIDE ET FIABLE C’EST 
LA PREMIE.H.RE FOIS QUE J'ESSAIE > <... 


STISTE! 
76 


19:05 TRANSFERT 
18062583 


.A.D.1.F.AUT.F.RDV.F.3.TEL.4.> < 
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DIA 
11018583 


.IMPAIR.A.12345.A.LIR.F.DIA.H.15.SALUT! 


.-A.H.H.A.OUT, 


J'AI RECU DES NEWS TU PEU 
M’APPELER AU 64 64 64 64, 


OK?.A.> <.... 


N°, pseudo, heure d'arrivée, lieu, département, 
sous-adresse appelante, 120 trucs. 





aillent pas se faire casser la 
gueule en accostant tous les 
Rockers balaises qui trainent 
dans nos rues. 





Pour quelqu'un qui ne s’est ja- 
mais dépatouillé avec un ST, 
Pibo s’en sort rudement bien, 
il n’a pour ainsi dire aucune 
notion d'informatique, il n'a 
pas d'ordinateur, pas de Mini- 
tel, rien, c'est un Rocker. Quand 
je lui explique un gag ou une 
illustration à faire, je le regarde 
droit dans les yeux pour es- 
sayer de faire passer mon 
idée. Essayez d'expliquer ce 
que c’est qu’un Ramdisk à un 





estimiez pouvoir vous échan- 
ger peinards des secrets et 
des mots doux? Vous plaisan- 
tez? Un petit intermède musi- 
cal et on se retrouve. 


“Fermer les volets, 

Ne plus donner d’eau aux 
fleurs 

Ne plus savoir qui tu es 

Et ne plus jamais avoir peur” 


Evidemment, les fournisseurs 
de service sont civilement res- 


OUILLE! 





ponsables de tous les mes- 
sages publics, cela signifie 
plus précisément qu'ils doi- 
vent empêcher “la provocation 
aux crimes et aux délits, l’of- 
fense au Président de la Répu- 
blique (je vous jure que c'est 
vrai), la publication de fausses 
nouvelles et la diffamation”. Il 
y a des serveurs qui font du 
zèle, en observant scrupuleu- 
sement chacun des connec- 
tés, basta la vie privée. 


Promis, chez ST Magazine, il 
n'y a pas de tel contrôle, sur la 
vie d'ma mère, vous pouvez 
venir comploter et faire des 
misères à Tonton en paix. Par 
la même occasion, venez es- 
sayer notre téléchargement, 
c'est le plus rapide sur Minitel, 
il a un nom rigolo, il s'appelle 
Sapristi, ça ne coûte “que” 98 
centimes à la minute (par op- 
position aux 125 centimes 
d’autres serveurs). 


non-initié, vous allez vite com- 
prendre. Macache bono, il re- 
vient toujours avec un autre 
gag, dix fois plus drôle que le 
mien, taratata, tu finiras par te 
les manger, tes crayons, Pibo! 


Vous avez vu ses dessins? 
Vous n'imaginez pas à quel 
point il les chiade, parce que 
vous n'avez pas les originaux, 
mais quand je réduis un de 
ses dessins, j'ai le coeur qui se 
déchire, je pense au génocide 
dont nous sommes coupables, 
la photocopieuse Canon NP 
9030 et moi, j'entends les pe- 





tits cris “hiii hii” de tous ces 
détails que j'écrabouille, que je 
compresse, que je concasse 
méticuleusement. Et tiens, le 
sourire ironique de l'ordinateur 
de gauche, prends-toi ça. Il 
est pas jouasse, le clin d'oeil 
rieur du bonhomme? Il se veut 
un 50% dans le nez? Je suis 
maudit, il y a des gens qui sont 
sur Terre pour créer, et 
d'autres, des cafards, ont pour 
mission de tout détruire, et 
avec le bol qui me caractérise, 
je fais partie de ces damnés, 
mais mourquoi, mourquoi? 


Le plus écoeurant, c'est qu'il 
n’a suivi des cours de dessin 
que pendant deux jours, ça 
l'ennuyait trop. Les fées, je 
vous dis. Si vous avez craqué 


sur les dessins de Pibo, vous 
pouvez en trouver d'autres en 
feuilletant Guitar World, CD 
Mag (pas de chance, ils ont 
coulé), ou en allant au New 
Moon à Pigalle, à Paris. 


Il a fait toutes ces illustrations 
(il n'appelle même pas ça des 
dessins, il est modeste, le 
bougre!) en quelques nuits, il a 
bossé comme un malade; on 
lui demandait un dessin tout 
simple, il nous apportait ça 
avec les ombres, les reflets, 
les trames et les machins, et 
nous, autour de la table lumi- 

neuse, soufflés de voir 
qu'il avait fait tout 
ça pour nous. 


J'ai quand même réussi à le 
mettre en défaut, notre génie 
du crayon. Et toc. Il a confon- 
du “astrologie” et “astrono- 
mie”, comme 66.667% des 
français, ce qui fait que le lis- 
ting “Point Astro” a une illus- 
tration qui n’a rien à voir avec 
le sujet, je suis bien content, 
bien fait bien fait! 
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page 15 

en vacances 

injoignable 

trop occupé 

du pain sur la planche 

du lait sur le feu 

en dérangement 

sur le point de partir 

déja parti 

laissez votre adresse 

on vous écrira 

écoutez je vais réfléchir 
en déplacement 

au lit avec 40° 

mains dans le cambouis 
rappelez plus tard 

en réunion 

stmagiquoi? 

le bébé fait ses dents 
c'est vraiment si urgent? 
et sinon ça va? 

beau temps pour la pêche 
parti à l'extérieur 

en congé maternité 
croyez bien que j'aimerais 
c'est dur pour tout le monde 
j'ai du bruit autour de moi 
des parasites sur la ligne 
il est en rendez-vous 
j'aime beaucoup le n°53 
je peux laisser un message 
la Madame elle est pas là 
ST Mag, c'est sur Mac, non? 
on a déjà donné 

et puis quoi encore? 

nada 

bernique 

que d'chi 

nib nib 

zarma 

peau de balle 

tu l'as vu celui-la? 
écoutez, il n'y a personne 
100 balles, ça te va? 
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BOUFTOUT 


Dans les jeux micro-informatiques, vous avez 90% 
de chances de tomber dans un labyrinthe. Ca n'a 
pas raté, vous voilà dans un labyrinthe, il va falloir 
ruser pour sortir, en prenant les clés, les bateaux et 
les trésors quand il faut. Vous pouvez créer vos 


propres tableaux. 
Raphaël DELCROIX 


ON BREAK GOSUB br 
ITTTTTTI TITI IIIIILIILIILLLLLLI LILI LILI. LLLLLISLLLLLELELELELLLELEEEE 
® BOUFTOUT Le 


L 
1 
1x Par Raphael DELCROIX * 
VORRRÉRÉRRARARERRERRARRRRRARÉRRRERÉERERÉRÉRRÉRÉERARCEA BASIC*AV3,.5**k%xx 
\ 


init game 
DO 
presentation 
RESTORE 1 
2: 
cherche niveau 
play 
IF gagneë 
GOTO 2 
ENDIF 
LOOP 
V 4x Jeu *** 
> PROCEDURE init_game 
LOCAL ig 
1 
DIM ca$ (36,13) | * Niveau cases par cases 
DIM spr$ (3) | * Sprites des murs 
DIM teleport&(10,2,2) ! * Cases de téléportation(x/y départ et arrivée #10) 
DIM ca2$ (13) ! 4 Niveau lignes par lignes 
DIM sc$ (10,2) <nom+prénom> . <score> 
HIDEM 
\ *** Dessine les murs *** 
FOR i8=3 TO 5 
DEFFILL ji 
PBOX 1,1,7,7 
GET 0,0,7,7,spr$(ig-2) 
NEXT ig 
CLS 
\ x#4 Lit les messages affichés en bas *** 
DIM msg$ (500) 
RESTORE messages 
Do 
INC msg& 
READ msg$ (msg&) 
LOOP UNTIL msg$ (msg&) ="*" 
CLS 
* *** Recherche les scores *** 
nom$=" A : \SCORES . BFT” 
IF EXIST(nom) 
OPEN “i",#1,nom$ 
FOR ig&=1 TO 10 
INPUT #l,sc$(ig, 1) 
INPUT #1,sc$ (ig,2) 
NEXT i& 
CLOSE 
ENDIF 
RETURN 
> PROCEDURE presentation 
LOCAL a$,is 


L 


|! *** Préparation du jeu *** 


! * Scores: 


| **#* Comme le nom l'indique... *** 


tresors=0 

tresor28=0 

santeé=50 

tempsé=0 

scé=0 

nv&=0 

4 

WAVE 0 

SOUND 1,13,1, 

SOUND 2,13,1 

SOUND 3,13,1 

WAVE 7 

PAUSE 50 

WAVE 0 

HIDEM 

OUT 4,18 
reprise: 

CLS 

SETCOLOR 0,6H777 

SETCOLOR 15,0 

DEFTEXT 1,1,0,26 

TEXT 75,50,"BOUF TOUT” 

DEFTEXT 1,0,0,13 

TEXT 60,80,"1. Règles" 

TEXT 60,100,"2. 

TEXT 60,120, "3. 

TEXT 60,140,"4, 

TEXT 60,160,"5. 


4 





1 
3 
5 


U 
LA 


! *** Cache la souris *** 
| *4* Désactive la souris *** 


Jouer" 
Créer" 
Scores" 
Quitter” 


\ «4x Vide le buffer *** 

REPEAT 

UNTIL INKEY$="" 

L 

\ 4%* Attente d’une touche pressée *** 

REPEAT 
SETCOLOR 0, £H666 
SETCOLOR 0, &H555 
SETCOLOR 0, &H444 
SETCOLOR 0, &H555 
SETCOLOR 0, 6H666 
SETCOLOR 0,6H777 
FOR i6=1 TO 20 

SETCOLOR 0,6H777 

NEXT ig 
a$=INKEYS 





UNTIL VAL(a$)<6 AND VAL (a$) >0 
L 
 #** Analyse de la touche pressée *** 
DEFTEXT 1,3,0,13 
SELECT VAL(a$) 
CASE 1 
TEXT 60,80,"1. Règles” 
PAUSE 50 
regle 
GOTO reprise 
CASE 2 
TEXT 60,100,"2. Jouer” 
PAUSE 50 
CASE 3 
TEXT 60,120,"3. Créer” 
PAUSE 50 
creer 
GTO reprise 
CASE 4 
TEXT 60,140,"4. Scores” 
PAUSE 50 
SETCOLOR 0,0 
aff_score2 
SETCOLOR 15,6H777 
GOTO reprise 
CASE 5 
TEXT 60,160,"5. Quitter” 
PAUSE 50 
br 
ENDSELECT 
RETURN 
> PROCEDURE cherche niveau 
LOCAL is,ng 
L 
DIM cal$ (13) 
VSETCOLOR 0, &H777 
VSETCOLOR 1,0 
VSETCOLOR 3, 46H70 
VSETCOLOR 4, £H40 
VSETCOLOR 5, &H40 
CLS 
FOR ie=0 TO 7 
SETCOLOR 0,7-1i8, 7-16, 7-i€ 
SETCOLOR 15,i6,ig, is 
NEXT i& 
IF suites 
GOTO passe 
ELSE 
READ tps$ 
ENDIF 
IF tps$="*" 
CLR tps$ 
IF EXIST("A:\LVL.BFT") AND NOT suites 
lvl obté=nive 
OPEN “i”,#1,"LVL.BFT" 
INPUT #1,1vl maxt 
CLOSE 
suite&=TRUE 
ELSE 
jeu termine 
ENDIF 
ELSE 
tps&=VAL (tps$) 
CLR tps$ 
READ add_temps& 
FOR is=1 TO 13 
READ cal$(i6) 
NEXT ie 
ENDIF 
passe: 
IF suites AND nive<=lvl maxt | #*4 Chargement du niveau *** 
OPEN "i”,#1,”A:\LVL "+STR$ (niv&-lvl_obt})+".BFT" 
INPUT #1,tps£ 
INPUT fl,add temps& 
FOR i6=1 TO 13 
INPUT #l,cal$ (ie) 
NEXT i6 
CLOSE 
ELSE IF suites AND nivé>lvl max$ 
jeu_ termine 
ENDIF 
L 
PRINT AT(17,12); "PRET ?" 
DO 
LOOP UNTIL STRIG(1) 
CLS 
tresor&=0 
clefs=0 
batoë=0 
x6=1 
yé=7 


4 


1! *** Préparation du niveau *** 


! **x Niveau à charger *** 


| **4 Niveau à lire en DATA *** 


{ #*x Si fin des DATA *** 


! * Si niveau à charger * 


! *** Niveau atteint *** 


| #** Niveau maximum *** 


L ##% Sinon... *#* 


! * S'il y a encore des DATA * 





! * Si dernier niveau terminé * 


Y *#* Analyse des niveaux *** 
CLS 
ADD temps, tps& 
DIM nbg (10) 
FOR i&=l TO 13 
PRINT cal${ig) 
FOR n6=1 TO 36 
ca$ (né, ie)=MIDS(cal$ (is) ,ne,1) 
IF ca$ (né, ie)="B" 
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PRINT AT(n&,ie) ; CHR$ (241) 
ELSE IF ca$ (né, ig)="-" 
PRINT AT(ng, is) ; CHR$ (247) 
ELSE IF ca${ng, is)="*" 
PUT ne*8-8,i6*8-8, spr$ (1) 
ELSE IF ca$ (né, ig)="#" 
PUT n&*8-8,i6*8-8, spr$ (2) 
ELSE IF ca$(né,is)="/" 
PUT n&*8-8, i&*8-8, spr$ (3) 
ca$(ne,ig)="*" 
ELSE IF ASC(ca$ (né, ie))}<=58 AND ASC{ca$ {n&, i&) }>=48 
PRINT AT{né,ig);"X" 
nn6=VAL (ca$ (né, i£)) 
INC nbg (nn6) 
IF nbg (nng)>2 
PRINT “Erreur dans le plan du niveau “;niv&+l;"." 
PRINT “(téléportage:trop) 
PRINT “Choisissez l'option <créer>." 
—INP (2) 
RUN 
ENDIF 
teleport£ (nn, 1, nb& (nn) }=ig 
teleport£ (nn6,2,nb£ (nn&) }=n6 
ENDIF 
NEXT n6 
NEXT is 
FOR i6=0 TO 9 
IF nb&(ie)=1 
PRINT “Erreur dans le plan du niveau “;niv&+l;"." 
PRINT “{téléportage:pas assez)" 
PRINT “Choisissez l'option <créer>."" 
INP (2) 
RUN 
ENDIF 
NEXT i& 
ERASE nbe (),cal$ (} 
RETURN 
> PROCEDURE play 
LOCAL i6,varé, varle, var26 
LOCAL vx, vys, xl, yls, joys 
LOCAL pos&,tré,tax£,eaué,eauxé, eauy& 
L 


! *#* Jeu proprement dit *** 


mort£&=FALSE 

gagne&=FALSE 

HAVE 0 

EVERY 100 GOSUB temps 

SETMOUSE 319,199 

PRINT AT(xé,y&) ;CHR$ (237) 

PRINT AT (1,21) :msg$ (INT (RND* (msg&-1) }+1) 
bloques=0 

L 


|_*#4 Vous... *** 
! LEE: Message *ks 


V *x4x Jeu *** 


DO 
EXIT IF ASC(INKEYS)=27 
PRINT AT(20,15);"SANTE :";santeg;" “ 
PRINT AT(20,16); "TEMPS :";tempsé;" * 
PRINT AT(20,17);"TRESOR :“;:tresor&;" “ 
PRINT AT(20,18);"CLEFS :";clefg;:" * 
PRINT AT(20,19);"BATEAUX:";batog;" * e 
1] 


! *4* Sortie du jeu **# 


\ #** Joystick géré *** 

joy&=STICK (1) 

vxE=0 

vy&=0 

SELECT joys 

CASE 1,5,9 
vy&=-1l 

CASE 2,6, 10 
vy&=] 

CASE 4,5,6 
vx&=-] 

CASE 8,9,10 
vxs=] 

ENDSELECT 

IF x6+vxs<l 
vx&=0 
vy£=0 

ENDIF 

posé=1l 

IF joys<>0 
IF x&+vxé=37 

gagne&=TRUE 
GOTO pass 

ENDIF 


LU 


! 44 Analyse des déplacements **4 
! *** Mur du fond dépassé *** 


“ *** Déplacement possible ? *** 
IF ca$(xe+vxé, Ya+vyg)="*" 
santeé=santes-10 
test 
FOR is=1 TO 20 
SOUND 1,15,1,i& 
PAUSE 1 
NEXT is 
SOUND 1,0 
pos&=0 
ELSE IF ca$(vx£+xé, vyg+yé)="-" OR ca$(x£+vxg, Y&tvye)="|" 
: |, *XKPOrte re 
IF clefe>0 


! *** Mur rencontré **# 


suite en page 22 


BOUFTOUT 


suite de la page 21 


DEC clefs 
ca$ (xs+vxe, V&+vye)=" * 
ELSE 
posé=0 
DEC santeg 
test 
PAUSE 20 
ENDIF 
ELSE IF ca${xgtvxé, y&+vyg)="" 
IF batog>0 
DEC batog 
eaué=2 
eaux£=x£ + vxE 
eauy&=y&+vy& 
ELSE 
pose=0 
PAUSE 20 
ENDIF 
ENDIF 
ENDIF 
IF joy&<>0 AND pos£=1 
xle=xé 
yls=ye 
ADD x6,vxe 
ADD ve, vyg 
PRINT AT(X6, y&) ; CHR$ (237) 
IF bloques=] 
PRINT AT(x1&,y18) ;"X" 
ELSE 
PRINT AT(xl6,ylg);" * 
ENDIF 
bloqueg=0 
PAUSE 5 
ENDIF 
4 
\ *** Déplacement fait ** 
IF ca$(x6,ys)="°" 
ca$(xe,y&)=" * 
INC tresor& 
PRINT CHR$ (7) 
1F tresoré>=20 
IF sante&+20>50 
tresor&=tresoré-(50-santeg) 
santes=50 
ELSE 
ADD santeg, 20 
tresoré&=tresors-20 
ENDIF 
ENDIF 
ELSE IF ca$(x&,ye)="S" 
ca$(x6,y&)=" * 
INC clefs 
SOUND 1,15,3,3,5 
SOUND 1,0 
ELSE IF ca$(xs,yé)="B" 
ca$ (xs, ys)=" “ 
INC batos 
SOUND 1,15,3,3,5 
SOUND 1,0 
ELSE IF caÿ$(xé,ye)="T" 
ca$(x6,ye)=" * 
terpsé-tempsétadd temps& 
EVERY STOP 
FOR i=0 TO 7 
SETCOLOR 0,i6,is,is 
SOUND 1,15,1,i8 
PAUSE 5 
NEXT ie 
FOR i6=7 DOWNTO 0 
SETCOLOR 0,i6,is,ig 
SOUND 1,15,1,i6 
PAUSE 5 
NEXT ig 
SOUND 1,0 
EVERY CONT 
ELSE IF ASC(ca$(x6,y&))<=58 AND ASC(ca$(x&,ys))>=48 AND bloques=0 
È ! *** Téléporteur *** 


P#** Rivière à franchir *** 


! x4* Affichage du déplacement *** 


PPARASVOUS 7. "AT 
[ «tx Si téléporteur *** 


| XX Trésor 257 


1 LEZ: Bonus LELS 


! LEE: Clef LEE: 


LEA Ra tea REnr 


| *** Bonus en temps *** 


PRINT AT(x6,y6):"X" 
IF teleporte (VAL (ca$ (x, y6)),2,1)=x6 AND teleports (VAL (ca$ 
(x6, y}, 1, 1)=ye 
var&=2 
ELSE 
varé=] 
ENDIF 
varls=teleporté (VAL(ca$ (x6,y6)),2,vars) 
var24=teleporté (VAL(ca$ (x6,y6)),1,vare) 
xé=varle 
yé=var?2s 
PRINT AT(x£, y&) ; CHR$ (237) 
bloques=] 
ENDIF 
IF eau6=2 AND joys<>0 


LELS 


! *** Affichage si rivière 


eaués=l 
ELSE IF eaué=1 AND joy6<>0 
eaué=0 
PRINT AT (eauxé, eauy&) ; CHRS$ (247) 
ENDIF 
IF tresoré>70 
taxé= INT (RND*20) +40 
PRINT AT(1,20);"Impots sur les grandes fortunes...-";taxé 
tré=tresoré 
FOR tresoré=tré DOWNTO tré-taxs 
PRINT AT(20,17);"TRESOR :";tresor&;" " 
PRINT AT(21,21);CHRS(7) 
PAUSE 5 
NEXT tresorg 
PRINT AT(1,20) ;SPACES (35) +SPACES (LEN (STRS (tax£) }) 
ENDIF 
pass: 


L #44 Amande *t* 


LOOP UNTIL morts OR gagneg 
fin jeu 
RETURN 
> PROCEDURE fin jeu 
LOCAL exe, ie 
A] 

CLS 

EVERY STOP 

DEFTEXT 1,0,0,6 

IF gagnes 
INC nivé 
TEXT 10,10,"Reussite du niveau “+STR$ (nivé)+":" 
DEFTEXT 1,0,0,4 
TEXT 30,30,"Sante restante. .."+STRS(santeg) 
TEXT 30,50, "Temps restant ...."+STR$ (tempsé) 
TEXT 30,70,"Tresors emportes."+STRS (tresor&) 
PAUSE 50 
ADD tresor?6,tresors 
TEXT 35,85,"Voyons vos gains..." 
FOR i%=pts$ TO pts#$+(santes+2*clefs+tempss+2*tresorg+50*nivé) 
TEXT 35,95,">"+STR$S (1% 
NEXT i% 
ADD pts$,santes+2*cleféttempsé+2*tresorg+50*nive 
IF temps£>0 
REPEAT 
IF sante&+1>50 
sante£=50 
ELSE 
ADD santes, 1 
ENDIF 
TEXT 30,30,"Sante restante..."+STR$ (sante) 
DEC tempss 
TEXT 30,50,"Temps restant. ..."+STRS (tempsa) +" “ 
PRINT AT(1,1);CHR$ (7) 
PAUSE 5 
UNTIL tempsé=0 OR santeg=50 
ENDIF 
RÉPEAT 
UNTIL INKEY$S©"" OR STRIG(] 

ELSE !-2RX Perdu -? *2x 
TEXT 10,10, "Perdu..." 
TEXT 30,30,m$ 
m$="" 

REPEAT 
UNTIL INKEY$©"" OR STRIG(1) 
4 
\ kxt Scores *** 
IF pts+>0 
look_score 
ENDIF 
aff_score2 
CLS 
FOR ig=7 DOWNTO 0 
SETCOLOR 0,7-16,7-i6, 7-16 
SETCOLOR 15,i6,i6,ig 
NEXT ig 
ENDIF 
RETURN 
> PROCEDURE temps 

DEC temps& 

IF tempsé<21 
SOUND 1,15,1,3,2 
SOUND 1,0 

ENDIF 

IF tempse<0 
tempss=0 
mort&=TRUE 
m$="Le temps est VOTRE MAITRE...” 
SOUND 1,15,4,1,20 
SOUND 1,0 

ENDIF 

RETURN 
> PROCEDURE test 

IF santes<0 
m$="Ce n'etait pas la forme..." 
santes=0 
mort&=TRUE 

ENDIF 

RETURN 

1 

> PROCEDURE jeu termine 
LOCAL repg 
L 


| *** Gagné'ou perdu *** 


[RE LL Gagné 2 xx 


1! *** Routine de minutage *** 





1 **x Test de santé *** 


gagne 

SHONM 

CLS 

PRINT “BONUS: “;+tresor28*2;" POINTS !1!” 
ADD pts$,tresor26*2 

PRINT “POINTS OBTENUS: “;pts% 

DO 

LOOP UNTIL INKEY$<>"” OR STRIG(1) 
look score 

aff_score2 

WAVE 0 


ALERT 0, "Choisissez :", 1, ”"ENCOREISTOP |CREE", reps 
HIDEM 
OUT 4,18 
HIDEM 
IF repe=]l 
RUN 
ELSE IF rep&=2 
br 


22 





> PROCEDURE look score 
LOCAL exé,i6,nb6,nb26 


4 


! *xt Scores battus ? *** 


FOR nb&=1 TO 10 
IF pts%>=VAL(sc$ (nbg,2)) 
exe= TRUE 
FOR i£=9 DOWNTO nb& 
sc$(ie+l,l)=sc$(ig, 1) 
sc$ (16+1,2)=sc$ (i6,2) 
NEXT ig 
sc$ (nb£,2)=STR$ (pts#) 
aff scorel 
OPEN “o“,#1,nom$ 
FOR nb&=1 TO 10 
PRINT #i,sc$ (nb, 1) 
PRINT #1,sc$ (nbe,2) 
NEXT nb& 
CLOSE 
ENDIF 
NEXT nb& 
RETURN 
> PROCEDURE aff scorel 
LOCAL t$,i&, j& 


Ü 


! X#* Demande d'entrée du nom *** 


CLS 
VSETCOLOR 0,0 
VSETCOLOR 1,6H777 
FOR i4=2 TO 7 
VSETCOLOR 6,7, (i&-1}, (i6-1) 
NEXT is 
FOR i4=8 TO 11 
VSETCOLOR i6,7,(6-(i8-7)), (6-(i&-7)) 
NEXT ig 
VSETCOLOR 12,0 
VSETCOLOR 13,112 
‘ 
DEFTEXT 1,1,,20 
TEXT 15,20, "YOU'RE ONE OF THE BEST” 
c&=l 
nb28=0 
DEFTEXT ,,,6 
FOR ie=70 TO 160 STEP 10 
INC ce 
INC nb24 
DEFTEXT c& 
TEXT 20,i6,-50,nb2s 
IF nb2£=nb£ 
js=is 
ELSE 
IF sc$ (nb26,2)<>"" 
TEXT 50,i6,-200,sc$ (nb2e, i) 
TEXT 270,i6,-30," “+sc$ (nb28,2) 
ELSE 
TEXT 50,26, "AASREARARALERARERRENAENARN 
TEXT 270,i6,-30," X" 
ENDIF 
ENDIF 
NEXT ig 
TEXT 270, j6,-30," “+sc$ (nbe, 2) 
DO 
a$=INKEYS 
IF LEN(tS$)=25 
a$=CHR$ (13) 
ENDIF 
IF a$<>CHR$(13} AND a$©"” 
IF ASC(a$)=8 AND LEN(t$)>0 
a$="" 
t$=LEFTS (t$,LEN (t$)-1) 
ELSE 
t$=t$+UPPERS (a$) 
ENDIF 
TEXT 50, j6, tS+SPACES (25-LEN (t$) ) 
ENDIF 
LOOP UNTIL a$=CHR$(13) AND t$<>"” 
sc$ {nb6, 1}=t$ 
4 
RETURN 
> PROCEDURE aff _score2 
LOCAL i6,c&,nbe,a6,pals 
\ 
CLS 
VSETCOLOR 1,6H777 
FOR ig=2 TO 7 
VSETCOLOR i6,7,(i8-1),(i6-1) 
NEXT i6 
FOR ie=8 TO 11 
VSETCOLOR i6,7,(6-{i8-7)}, (6-(i6-7)) 
NEXT ig 
VSETCOLOR 12,0 
VSETCOLOR 13,112 


A 


! x** Nomtprénom à marquer *** 


EMBETER STJC ? 
3615 STMAG ! 





L x*4 Touche <Backspace> *** 


|! **x Affiche les meilleurs scores ** 


DEFTEXT 1,1,,20 
TEXT 50,20,"THE BEST PLAYERS" 
c£=1l 
nb6=0 
DEFTEXT ,,,6 
FOR i6=70 TO 160 STEP 10 
INC ca 
INC nb& 
DEFTEXT ce 
TEXT 20,i6,-50,nbe 


suite en page 23 





Page manquante 


RAMDISK 


Stockez (provisoirement) vos données sur ce Ramdisk. Il résiste 
au Reset, mais pas aux pannes de courant... 


KARRRRRRRARRÉRRRERRRÉRÉRRARRARERÉRÉEAK À 


Eric DA CUNHA 


:$190000 pour 2M ;$390000 pour 4M 





* Ramdisk en boot resistant au reset* Cl CM.L 45210000, $42E.W 
* COPYRIGHT DA CUNHA ERIC 1990  * ; idem 
PTTTTTITIIIIIIILIIIILLLLILILELLLLILEE BEQ.S set 
; Utiliser le programme joint en Gfa pour MOVEQ #0,D1 
l'installer sur un disk LEA (A6) , A0 
MOVE .W #$8FF, DO 
: Les valeurs par défaut correspondent a un 2.5 M pliz MOVE. L D1, (A0)+ 
: supporte les capacités suivantes: DBF D0,pliz 
: +128 K pour 520 ST? MOVE.L A6,$42E.W 
: +256 K pour 1040 ST? move.l  4.w,a0 
: +448 K pour 2.5 M ou 2M ou 4M imp (a0) 
set MOVE. L $472.w,$2c8+2.W 
unit equ C'-65 ;unités ‘C' à ‘H' MOVE. L #$2c0,$472.w 
MOVE.L $476.W,$2de+2.W 
cmp.b #$2a, SfEFEcO2.w MOVE. L #$2d6,$476.W 
;shift gauche pour ne pas installer ramdisk MOVE.L $47E.N,$366+2.W 
bne.s ok MOVE.L #$35e,$47E.W 
rts LEA $C (A6) , A0 
ok move. l $42e.w, d0 LEA BINF (pc) , Al 
LEA start (PC),AÏ MOVE.W D7, dé 
cmp.l #$200001,d0 LSL.W #1,07 
:$180001 pour 2M ;$380001 pour 4M ADD.W #512,D7 
bhi.s cop MOVE.B D7,$13-$C (A1) 
moveq #$c,dl LSR.W #8,D7 
lea mes2 (pc) ,a0 MOVE.B D7,$14r$C (A1) 
cmp.l #$080000,D0 MOVEQ #15+14,D0 
BHI.s dif rc2 MOVE .B (A1}+, (A0) + 
L520 moveq 46, dl DBF D0,rc2 
lea mes3 (pc) ,a0 move.w d6, (a0)+ 
dif MOVE.W {A0)+,c0+2-start (Al) Bset SUNIT, $4C5.W 
move .b di,cl+3-start (al) RTS 
move.b di,c2+3-start (al) mes de.b “Edy's * 
move.b  dl,C3+3-start (al) c4 de.b “448K Ramdisk->High=$" 
move.b dl,hdv_ bpb+3-start (al) cs dc.b *210000!"”,0 
move. 1 (a0)+,C4-start (al) :$190000 pour 2M ;$390000 pour 4M 
move .W {(a0),C5-start (al) even 
cop pea mes (pc) mes? DC.W 256 
move.w #9,-(a7) dc.b *256K”,"0C" 
trap #i mes3 DC.W 128 
addq.l 46,a7 de.b “128K", “06” 
LEA $2c0 .w, A0 BINF de.b 2,2,1,0,2,$70,0,2,0,0,5,0,9,0, 
MOVEQ #(end-start)/4,D1 DC.B 2,0,0,2,4,0,0,7,0,5,0,6,0,$ 
rc MOVE. L {A1)+, (A0) + start CMP.W funit, 4 (A7) 
DBF Di,rc BEQ.S hdv_bpb 
co MOVE.W #$1C0,D7 jæ $11111111 
2 lea $210000, a6 hdv_bpb  MOVE.L #$21001C, DO 
“4 
suite de la page 23 DATA 20, 50 
DV ME LELLELELLELLELEEEELELEEEELEE LEE EEE 
DATA Et puis zut ! DATA #°2200000000000000000000000000000004 
DATA J'suis à cours d'idée ! : DU LE LLLLLELLLLELLLELEEELLLEELELELLELEESE 
DATA Bon c'est pas tout mais j'vous quitte. DATA #0000000000000000000000000000900000% 
DATA * DATA #KARRARRRRRERARERRRRRERRERARRAEEE À 
1 #44 Niveaux *** DATA *°200040000%00000$ 0 4 
LE DATA °200000000000000k4444kak#4XKkK AREA À 
DATA 120,30 DATA *///L BILLET S#ST] 4 
DV ML LLELELLEELELLELELELECELEEEELEEEEEEE DATA * + 4/ PETRET LECLILLLELELLLLL 
DATA * 6* kOXGABX AO ATX *° x * DATA *06% * ##4k/XAkRAEX à em * 
DATA NN NN MR NS ER ER ASSRE S DATA ##XA # # RBXGABAT/ ARARRARARARARER / 
DATA * * * ORÉE K XX À x6* + DATA *x0000000000000000% re * 
DATA *#K#kkX KKKKR KO À OK Ok 0% 4 AERSAO K D. VV SE LLLLLLLELELELEELEELELEEELEEEELEE LE EEE 
DATA # #04 Ag 00 % xx HHDAARAR Ok HA “5 
DATA OX # fax #x à # | | [| KXXxx & * | DATA 50,10 
DATA * * # #@% #4 k # k k x © ROXKARK DV ME LLELLELLLLELELEELEEEEEEEELEELELEEESEE 
DATA *  * RUN Ok OR ORARRRRRARRX DATA * OT = * 
DATA #8 # ARE AN NON RON $ “ DATA * *x/R/kpn A/R EX nanas à RRRRRX à 
DATA # OM HD À OR ORRAXERARÉRRRRÉE À DATA * #0 40 40 40 40 10 4844 KORARERX * 
DATANSN QT UT : : DATA * *GASHSHSESESA*E* *xAAkA & à * 
NV M LLLELELLELELELLELELELELEEEECELESLELEL DATA * #AAkatæRtRzR Ag à à AatkIE 
‘2 DATA - N pere eTS | [EL 
DATA 50, 100 DATA * XAA-RRACRAR KEX KO OHARARA 
DATA À # AH HR HR A HR HR HA HAN DATA À ABHBERESEURX pue tanass à * 
DATA * ** RAAARARK ** DATA * *S*SE*HBBE* LL LORAAAKX À 
DATA *-A#AKARAAGÇEE À HAAOOOOKkE RARRRRRR KA DATA * *ARKHARRERE AGX ORRERER À ORRRXRE À 
DATA # RARKKNERARE RAKAK XABAGES— ** DATA * *B* * * 
DATA *** ** LLRELLELLL LEE DATA *RAKRARAARRRANENENERANELARREARARA RAA 
DATA *#X ARAKAAR ARÉAABBAA 44 AAkk4 ||] ‘V6 
DATA OX AR KO RARARRRAR HAUAARRÉRR ARR DATA 50,10 
DATA * ** «64 6 | LLLE) DV ME LLLLELLLELELLLELEELLELEEEEEEEEEEEEE EE 
DATA # ON RARE RUN ARR ARN RNA A À DATA *3| | * PILI TL * 
DATA * RXAKKDR GRO TO OOKABRR A + 26SSIT * DATA **#k4-* RRRRRARARERAO ORARRRRLARAX A 
DATA * KAXO RO HO OXO KE HAAARAARRAXE À DATA *1*% * KA pa kGREAXE +2 * 
DATA #*#*40 #44 Lg AO xk0OO%kX | SBBSB* DATA *63*415* 00000/4/J5/#ARRARARARRRE 
DATA #ARARKARRRERAËERRR AR ARR KA RU A ERA EEK A D7.VY ME LELLELELLEELELLELT LELELEEEELEEELEEEES 
‘3 DATA B 4 
DATA 50,20 DYUV ME LELCLELLELELELELLEL LEE LEE CELELLEEE) 
DATA RRRRRRARARRRRRRRARRRARÉRARRRRARLRÉRRR DATA *BB F *6 #4? …{ *2* 
DATA * ER A RES RO OS TRES DATA RARRRARRRRRRARRR RARE RÉ /1* ès 
DATA # * RAXRRKRER KO KARO RERRERAA ARE EAXLO À DATA *S/# sprtansets GX # 
DATA * * #900000000040 40 #000000000000040 4 DATA #fggraaseemannenxe °/ * 
DATA * 4 ROKRHKARREARO GO LANARARAR AR EXO KO à DATA AARAKRRARRARRARARARAANRARAR ERA NNR RAR 
DATA + RE ORUPIS US EURRRT BS /°*°7 ‘ 7 
DATA # ARKARRARRRERÉARAERRARARAREG RER TK DATA 50, 10 
DATA * * # #  HARKARALAT| * DV ME LLELLLELLELEELEEELEEEEEEEEEZELELEEES 
DATA OR OR ORARRARRÉRRÉA PTRAAARRRAERA LEZ: DATA 9000000000000000000000000000000001% 
DATA * * # FH % Ü DATA *// 44 LILI MINUTES 
DATA * % RHAKARERREX AA RARÉRÉRRRRRARER | DATA * ** 
DATA * lue Sy x DATA *SX#A RAR RER RER ARE RARINRERERE REA A 
DATA AAA AAA ARR RAR AAA RE RNA HN ARNRNR A À À DATA *ä* ]4 VE — 
DATA 0*0 2* 314 kièrs 
DATA *#*4 3% Er * 1B51- 





:$19001c pour 2M ;$39001c pour 4M 


RTS 

hdv_rw CM.W funit, $E (A7) 
BEQ.S wrea 
je $22222222 

wrea MOVE.W  $C(A7),D0 
EXT.L DO 
moveq 49,d1 
1sl.1 di,d0 
MOVEA.L 6(A7),A0 
MOVE.W $A(A7) ,D1 
SUBQ.NW #1,D1 

[os] LEA $210000,A1 


:$190000 pour 2M ;$390000 pour 4M 





! Programme GfA: 
‘ Installe l'exécutable du listing ramdisk en boot 
\ Copyright 1990 Da Cunha Eric pour ST MAG 
a$=SPACES (512) 
-XB10S(8,L:V:a$,L:-1,W:0,W:1,W:0,W:0,W:1) 
‘ lit le bootsecteur courant 
ch=0 
FOR i=0 TO 511 STEP 2 
ch=ch+DPEEK (V:a$+i) 
ch=ch MOD £H10000 
NEXT i 
‘ calcule son checksum 






























ADD.L D0,Al IF ch=6H1234 
MOVE.W  4(A7),D0 PRINT “Boot exécutable" 
BTST #0,D0 INPUT “Poursuivre “,r$ 
BEQ.S read IF UPPERS (r$) >"0" 
EXG Al, A0 END 
read MOVE.W A0,D0 ENDIF 
BTST 40,D0 ENDIF 
BNE.S ire b$=SPACES (512) 
MOVE.W  Al,D0 BLOAD “a:boot .dat",V:b$ 
BTST 40,D0 BMOVE V:b$+28, V:a$+30, 508-28 
BNE.S ip DPOKE V:a$, &H601C 
bloc0 MOVEQ 4$A,D0 LPOKE V:a$+2, CVI (“Edy!") 
bloc MOVEM.L  (Al)+,D2-d7/A2-a6 ch=0 
MOVEM.L  D2-d7/A2-a6, (A0) FOR i=0 TO 509 STEP 2 
LEA $2C (A0) , A0 ch=ch+DPEEK (V:a$+i) 
DBF D0,bloc ch=ch MOD 6H10000 
MOVEM.L  (Al)+,D2-d7/A2 NEXT i 
MOVEM.L  D2-d7/A2, (A0) DPOKE V:a$+510, (&H1234-ch) MOD 6410000 
LEA $1C (A0) , A0 \ prépare le nouveau boot exécutable 
DBF Di, blocÜ ch=0 
bra.s imp2 FOR i=0 TO 511 STEP 2 
imp MOVEQ #63,D0 ch=ch+#DPEEK (V:a$+i) 
oct rept 8 ch=ch MOD &H10000 
MOVE.B  (Al)+, (A0)+ NEXT i 
endr -XBIOS (9,L:V:a$,L:-1,W:0,W:1,W:0,W:0,W:1) 
DBF DO, oct \ ecrit le résultat 
DBF D1, imp 
imp2 MOVEQ 40,D0 
RTS 
hdv_mediach: 
CP.W funit, 4 (A7) 
BEQ.S imp2 
jp $33333333 
DATA *axiprt QUE LES CELL) (| 
DATA RRRRRRRRAR RER RAR RES ERAARAREXEREXS | CA SE CROIT MALIN 5 
DATA * Sxkx*x/* $** 3 < Ë 
* e k L'émulateur TT sur MAC, c'était un joke, voyons! Vous 
DATA *$ 2 , 
DATA #ARRRRREARRR RAR RERRER AREA A RAR KA REA A À avez été nombreux à nous demander des renseignements, 
‘8 arrêtons les frais: le soft Mac Step n'existe pas, nous avons 
DATA 50,200 juste transféré des écrans TT sur Mac, c'est tout, si on peut 
DATA RRRRRRRRARRRRARRRÉRÉRRRARRARRRRÉARÉRRÉ même plus rigoler. 
DATA *1+// #4/*B*5B |... #7#009000 0464 
DATA * *14 4°2* LRRARARARAR KR À + 
DATA * #kkakhké à * #0000000% x 
DATA #0 *x240 x k0 x3x4% *5* 
DATA RRRARORRRRRARRARA RAR ARAARARR ARE EX CRIS DU COEUR 
DATA B | 
DATA RRARRS ER ARARARRARORARÉRARÉRRRARAREARREE L Ds 
DATA #B4S* #* 45 sGASHHHEHA///* J'ai placé un magnéto dans les locaux de ST Mag, voici 
DATA * #0= # # a0000008 «//.///T//j/* quelques cris du coeur de la Rédaction: 
DATA * ##Axaxax * à x x//##/3///1/* 
DATA * «Bg#°°000047%///844/////* “Purée, merde, il a encore bombé ce con!" 
DATA RRRÉRRARÉRARARARRARERRRARARÉRARRARLALK 
ke: “Il fait chaud, j'ai chaud, j'ai vraiment super chaud, c'est la 
DATA 50, 19 chaleur de la reumo. 
DATA RRARRRRRARRRÉAARRRRRRRARÉRRÉRÉRRARRARX 
DATA * -— | RE - ve 
DATA * #4 RRAMRRRRAMRERAARRERS 444 “Quel est le con qui a inventé le ST et ses foutus 8 carac- 
DATA * A#Rk ARAARRARERERARÉR RER X tères pour le nom de mon fichier?" 
DATA * *///#x  OBHUABREERS  O*XHHEX à 
DATA * *//Hft** *ABAapt* kasgptpt + “J'ai l'impression qu'on se fout de ma gueule.” 
DATA OH#4/#08#4#  4//8  H44994//84 | 
DATA N #/HHS4 1 BEBE A pa FAAHA/* 318 “Purée, merde, ce con, purée, je sauve en LIB et il bombe!" 
DATA * *///#* {HIHI III *AHES* % 
DATA * *htk RRRRRRARRRRRARAR LEE) * ie s 
DATA * ** RRRRRARRRERRARARÉRE EX LL) “J'ai chaud. 
DATA * = | L “ut est fl 
DU ELLLELELLLLLELLLELELELELELELELEEEEE “Lva clamser, contaminé, il va clamser, contaminé. 
‘10 
DATA 50,10 "Jamais tu les fais droits, tes gabarits, Mireille?" 
DATA RRRRRRRERRRRRRRRRRRRRRRRÉARÉRRRÉREREA 
DATA *B/ + 45- L + “On est en retard. Je le crois pas, on est en retard." 
DATA *#/ RARARRRRRRÉAERARRRRRRARRAREAGÉ * 
DATA * -  $ 03- L* 
DATA HAN ORRARAARRARRAARRARRAARARARARAREX À 
DATA * | “  arvtle” {* 
DATA SRARRAAREARRARRARRATÉARERARARARKX | 
DATA * | - °_ 02- | * 
DATA WAR ÉRRRRREARARARASENESRAARARENRNÉ à Quelque part dans le canard (phrase révélatrice d'un 
DATA * Gros Baucèlr Lx magazine mal foutu, réalisé par une équipe dépourvue du 
AL pu RSA MER ï moindre petit chouia d'organisation), on vous a dit que 
RE e Stumpf, PDG d'Atari Allemagne, était devenu Führer von 
D Atari Welt par la volonté du Saint Esprit et aussi un peu par 
DATA À celle de Tonton Tramiel. On a oublié de vous dire que par 
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conséquent il devenait aussi PDG d'Atari France, secondé 
par Ali Hammaoui, Directeur Général quand même. 


DEAD KEYS 


Gräcê à cé pêtit ütilitäiré bien pratique, vous 
aurez enfin accès aux caractères les plus 
bizarroïdes de votre clavier. 


Michel DESSAINTES 





plen 63 

1len 132 

ttl GESTION DES TOUCHES MORTES 
subttl 

listchar 15 

format  O+,1+,2+ 

opt At,M+,0+,P=,S=,T+,W+ 


DEADKEYS .L Gestion des touches mortes. 


Auteur  : Michel DESSAINTES 


; Macros DOS 
bconin macro device 
move \1,-(sp) 
move #2,-(sp) 
trap #13 
addq #4,sp 
endm 
getshift: macro modus 
move \1,-(sp) 
move #$0b,-(sp) 
trap #13 
addq #4, sp 
endm 
keepproc: macro error nr, length 
move \1,-(sp) 
move.l \2,= (sp) 
move #$31,-(sp) 
trap #1 
endm 
printline: macro “string 
pea \1 
move #9,- (sp) 
trap fl 
addq.1 #6,sp 
endm f 
setexec: macro “new address, vector nr 4 
pea \1 TN 
move \2,- (sp) A 
move 45,- (sp) } SA 
trap #13 É de 4 de 
addq.1 #8,sp Î 
endm e 
start_prg: 
bra install : installe le programme 
; come résident 
new_trap: 
btst #5, (a7) ; mode système ? 
bne.s sys_sp ; oui 
move. l usp, a0 : non, prendre le user 
; stack pointer 
bra.s check_bconin 
sys_sp 
lea 6(a7) ,a0 : mode système, prendre le 
;: system stack pointer 
check_bconin 
cmp.l #520002, (a0) ;: dev=CON:, fonction-Bconin 
beq.s new bconin ; fonction Bconin BIOS 
cmp.l #$10002, (a0) ; dev=CON:, fonction=Bconstat 
bne old trap ;: ni Bconin, ni Bconstat 
new_bconstat : : nouveau BCONSTAT 
tst.l pending keys ; touches en attente à retourner? 
beq old trap ; non, donc ancien Bconstat 
moveq #-1,d0 : affirme qu'il y a un 
: caractère disponible 
bra end prog rte ; retourne “pas de touche 
; disponible” 
new _bconin: : nouveau BCONIN 
move. l old trapt+2,a0 ; sauve nouveau vecteur de 
trap 


setexec (a0),4#45 ; restaure ancien vecteur 
move.l d0,current_trap ; garde le vecteur 
: trap 13 courant 


tst.l pending keys : des touches en attente ? 
beq.s no _pending key ; non 
retumm pending key: 

7 move.l pending keys,d0 ; oui, on retourne la lère 
move.l pending_keys+#4,pending keys ; on décale la suivant 
; s'il y en a une 
: marque qu'on l'a 
; retournée 
; et on la retourne 


cir.l pending keys+4 
bra.s end prog 


: aucune touche en attente 
: on lit une touche 


no_pending key: 
bconin #2 


bsr.s is compose ; caractère de composition ? 
beq.s compose ; oui 
bsr.s is auto compose ; non; caractère de 


; composition automatique ? 
beq.s auto compose ; oui 
bra.s end_prog ; non, on retourne la touche 
: telle quelle 


; la touche de composition a été entrée 
bconin #2 ; on prend le ler caractère 
auto compose: : on arrive ici en cas de 


compose : 


composition automatique 
bsr.s check key 1 ; test si le caractère peut 
; commencer une composition 


bne.s return pending key ; non, on le retourne 


bconin #2 ; oui, alors on lit 
; le 2nd caractère 
bsr check key 2 ; les 2 caractères fomment-ils 
: ils une séquence de composition? 
bne.s return pending key ; non, alors, on 


: retourne les 2 caractères 
clr.l pending keys ; oui, on nettoie la 
touche en attente 
; et le dernier 
caractère entré 
et on retourne le 
caractère composé 


cir.l pending keys+4 


move.b 3(a0),d0 


ms de + 


end_ prog: 
move. l d0,-(a7) ; sauve le registre DÙ 
move.l current _trap, a0 
setexec (a0),#45 : restaure le vecteur courant 
move. {a7)+, d0 : restaure le registre DO 
end prog rte: 
rte : retourne du TRAP 13 


: teste si le caractère est celui de composition 
is_compose: 











cmp.b compose char, d0 ; c'est ce caractère ? 
bne.s ic rts ; non, on retourne le flag Z à zéro 


move. l d0,-(a7) ; oui. 
getshift #-1 : lit l'état des touches 
: shift/alt/control 


move .b d0, dl : sauve l'état dans D1 


move.l (a7) +, d0 ; restaure DO 
and.b #15,d1 : masque les bits 
;: non souhaités 


: teste si l'état 
: est correct 
ic rts: : retourne l’état des 
: touches shift/alt/control 


ap.b compose shift, dl 


rts 


: teste si c'est un caractère de composition automatique 
is auto compose: 


mr mn ——__ 
; 

















lea auto compose +ab, a0 ; teste tous les 
: caractères de la table 
nxt_auto: 
tst.b {a0) : fin de la table ? 
beq.s iac rts n  ; oui, on retourne “pas un 
; caractère automatique" 
move.b (a0)+,d1 ; non, on prend le caractère 
; dans la table 
cp.b d0,d1 : le même que œlui saisi ? 
bne.s nxt_auto ;: non, teste le suivant 
lac rts y: ; oui, retourne le flag Z à 1 
rts 
iac rts n: 
tst.b d0 ; positionne le flag Z à "pas 


; un caractère automatique” 


: teste si le ler caractère commence un séquence de composition 
check key 1: 

move. l d0,pending keys ; sauve le caractère 
; si œ n'est pas le cas 








move .b d0,previous key ; sauve le caractère 
: pour “check key 2” 
lea conversion table-4,a0 ; juste avant la 
7 ; table de conversion 
move #ict_end-conversion table)/4-1,d1 ; sa 
: longueur 
nxt_ckla: 
addq #4,a0 : saute à la séquence suivante 
cmp.b {(a0) ,d0 ; idem au caractère entré ? 
beq.s nxt_cklb : oui, on l’a trouvé 
cmp.b 1(a0) ,d0 : teste le 2d caractère 
dbeq dl,nxt ckla ; différent, teste l'entrée 
nxt_cklb: 
rts : retourne le flag Z (=1 si le caractère 
. est dans la table) 


: 


: teste si les 2 caractères sont une séquence composée 
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check key 2 
move. l d0,pending keys+4 ; sauve le caractère si 
; pas une séquence 
move .b previous key, d2 : on prend le caractère 
: précédent 


cmp.b d0, d2 met le plus petit 


dans les bits 15-8 


bls.s nxt_ck2a 
exg dû, d2 

: d2 = bits 15-8, d0 = bits 7-0 
1sl.w #8,d2 le place dans l'octet 
fort du mot faible 
place le demmier 
caractère en bas 


nxt_ck?a: 


move .b d0,d2 


Se «5 à 


lea conversion table-4, a0 : juste avant 
; la table de conversion 
move #(ct_end-conversion table) /4-1,d1 ; sa 
: longueur 
nxt_ck2b: 
addq #4,a0 : saute à l'entrée suivante 


teste si les 2 caractères 
: forment un séquence composée 


Cp .W (a0) ,d2 


dbeq dl,nxt ck2b ; si non, on teste l'entrée 
; suivante 
rts : retourne le flag Z (=1 si la séquence 
b est dans la table) 
h data 





: définition du caractère de composition 


compose shift: dc.b 8 : défaut = Alternate 
compose char: dc.b $lb ; défaut = ESCape 
pending_keys: de.l 0,0 ; prochaine touches à 

: retourner (0 si aucune) 
previous key: de.b 0 : ler caractère de la 


; séquence 
*17*,0,0,0,0,0 : maximum 6 
: (+ 0 à la fin) 


auto compose tab: dc.b 





: table de conversion 








conversion table: 


: entrée de table: ler caractère, 2d caractère, 0, code d'équivalence 











5 (le ler caractère DOIT être < 2d) 
: examples : 
Ê pour obtenir le signe “cent” ($9B), 
$ entrer le caractère de composition (Alt+ESC), 
: puis rs 
f puis “/* ou |"; 
s pour obtenir la fraction “un demi” ($AB), 
: entrer le caractère de composition ({Alt+ESC), 
; puis “l” 
> puis “2”; 
; pour obtenir le signe “a umlaut” ($84), 
F ne pas entrer le caractère de composition (Alt+ESC), 
; entrer “:" ou “’", 
: puis “a”. 
even 
dce.b 0; : accent circonflexe 
; (quand on ne veut pas l'automatisme) 
de.b *,C”,0,$80 ; C cédille 
de.b “u”",0,$81,'"u!,0,$81 ; u trèma 
dc.b “e”,0,$82 : e accent aigu 
de.b “ra",0,$83 ; à accent circomflêxe 
de.b “a”",0,$84,'"a',0,$84 ; a tréma 
dc.b "a",0,$85 i a accent grave 
de.b “a°",0,$86,'ao,0,$86 ; a ring 
de.b “,c",0,$587 ; c cédille 
dc.b “‘e",0,$88 : e accent circonflexe 
dc.b “e””,0,$89,'"e!,0,$89 ; e trèma 
de.b “’e”,0,$8A : e accent grave 
de.b “i°”,0,$8B,'"i",0,$8B ; i trèma 
de.b “ai” 0FS8C ;: i circomflêxe 
de.b “°1",0,$8D ; i accent grave 
dc.b “A°",0,$8E,'"A',0,$8E ; À trèma 
de.b “A°",0,$8F,'Ao',0,$8F ; À ring 
dc.b “1E",0,$90 : E accent aigu 
de.b “ae”,0,$91 ; ligature a e 
dc.b “AE",0,$92 : ligature À E 
dc.b “#0",0,593 ; o accent circonflexe 
de.b “o”",0,$94,'"0",0,$94 ; o trèma 
de.b “o",0,$95 ; 0 accent grave 
dc.b vau",0,596 ; u accent circonflexe 
de.b “u*,0,$597 ; U accent grave 
de.b “y°",0,598,!"y",0,598 ; y trèm 
de.b “0"",0,$99,'"0!,0,$99 ; O trèma 
dc.b "U"",0,$9A,'"U',0,$9A ; U trèma 
dc.b “/c",0,$98,'cl',0,$9B ; cent 
de.b “-1",0,$9C : livre (pound) 
dc.b “-Y",0,$9D : yen 
dc.b “ss",0,$9 ; béta 
dc.b "=£",0,$9 : Florin 
NDC: Bonjour les TABs! Je meurs! 
suite en page 28 
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Redéfinissez vos touches grâce à ce petit utilitaire très pra- 
tique. Pour écrire "Lnjimuvch" en appuyant sur <F1>, pres- 
sez Alternate + Enter puis <F1> puis "Lnjimuvch" puis Alter- 
nate + Enter. 




























Michel DESSAINTES 
FRE EN NNNERRRS : move. 1 current def, dl 
llen 132 ; Macros Internes bsr find key 
ttl GESTION DE DÉFINITIONS DE TOUCHES RE tst d2 ; teste la longueur de la 
subttl : définition 
listchar 15 signal_start: macro bne.s get_stat : pas vide 
format 0+,1+,2+ dosound  snd start bsr kill key ; vide, donc on la supprime 
opt A+,M+,0+,P-,S-,T+,W+ endm bra get_stat 
mm signal end: macro tst_start_rec: 
; dosound  snd_end cmp.l def key,dl ; début de définition ? 
; KEY _DEFS.S Gestion de définition des touches. endm beq.s start def ; oui, alors on la démarre 
: Auteur : Michel DESSAINTES signal_ fault: macro bsr find key ; teste si c'est le 
î dosound  snd fault ; caractère de re-définit. 
M DO Re UN Un endm bne char avail ; non, on retourne 
conterm = $484 ; variable BIOS subtt 1 TEST APPEL AU BIOS st.b f_play ; on démarre le playback 
page move. l aû,def begin 
MAX DEFS = $400 ; taille de la zone de définition EE enr re rer ner amies add d2,a0 
; (en nombre de touches) start_prq move. l a0,def end 
MAX KEYS = $40 : taille de la zone des touches es cr FeS 
4 î {en nombre de touches) bra install : installe le programme bra char avail 
DEF KEY =  $0872000d ; touche qui démarre et finit une def. ; comme résident si 
PEL nr EE Fi ; Note Du Claviste (NDC): quand reverrai-je mon petit liré? 
subttl MACROS 
1 nee nn nn emmener def key: de.l DEF KEY ; touche de définition start def: 
; Macros DOS max defs: dc.w MAX DEFS ; nbre max de touches à a signal start 
ne PR mms me ie : enregistrer cir.l  nxt char 
max keys: do.w MAX_KEYS : nbre max de touches à bsr old conin ; on prend le carctère à définir 
bconin: macro device : définir cp. def key, dl 
move My-(sp) TT TOUT cé fr dt él ji Se Sal beq new def key ; on redéfinit le caractère 
move #2,- (sp) new_trap: 7; de définition 
trap #13 Er 
addq #4,sp btst #5, (a7) i mode système ? move.l  dl,current_ def : pour détruire la 
endm bne.s SSP F QUE . : définition si aucun caractère 
move.]l usp,a0 ;: non, prendre user stack pointer : n'est enregistré 
bconout : macro device, char bra.s check_bconin bsr find key ; déjà une def pour ce caractère? 
move \2,-{sp) sys sp: bne add def ; non, donc on l'ajoute 
Late \1s- (sp) lea 6(a7),a0  : mode système, prendre le bsr kill key  ; oui, alors on la supprime 
move #3,-(sp) ; system stack ptr add def ñ 
trap 15 check_boonin : move.l keys free,a0 
addq #6,sp cmp.l #$20002, (a0) ; dev=CoN:, fonction=bconin cp.l keys end,a0 ; assez de place pour une 
endm bne.s check bconstat ; fonction BIOS bconin sé ; nouvelle déf. ? 
bne.s def char ; oui 
bconstat: macro device bsr new_bconin 
move \1,-(sp) bra.s rte Æ signal fault ; non 
move #1,- (sp) bra get_stat 
trap #13 check _bconstat : 
addq #4, sp emp.l 4510002, (a0) ; dev=CON:, fonction=bconstat def char: 
endm bne old trap ; ni bconin, ni bconstat "se move.l di, (a0)+ 
bsr new bconstat cir.w (a0)+ 
dosound: macro “sound rte move. l a0,keys_ free 
pea \ rte st.b f_record ; on marque qu'on est en 
move #520,-(sp) ; train d'enregistrer 
trap #14 nn eeroeT 7 VV ADAM ENREE MERDE PERTE EE EEE EEE bra get stat 
addq.l #6,sp new _bconstat : ; nouveau BCONSTAT 7 
endm MERE TITRES DETENTE RER SEE CRE new _def_key: 
move. l nxt_char,d0 ; avant tout, traîte le bsr old conin 
keepproc: macro error_nr, length ; caractère en attente move.l dl,def key ; on sauve la nouvelle 
move \,=(sp) bne char avail ; il y en a effectivement un : touche de définition 
move.l . \2,-(sp) tst.b f_play ; en train de re-jouer signal_end 
move #$31,-(sp) ; une définition ? bra get_stat 
trap # beq.s get_stat ; non, donc on prend le 
endm ; Status de CON: char avail: 
: moveq #-1, d0 ; on marque qu'il y a un car. 
keytbl: macro \unshift, \shift, \capslock move. l def begin, a0 ; de disponible 
move. 1 \3,- (sp) cp. def _end,a0 ; touches en attente stat _rts: 
move.l \2,- (sp) ; d'être retournées ? rts 
move. L \1,- (sp) bne char avail ; oui, la définition n'est 
move #16,- (sp) : pas terminée tt 
trap #14 new _bconin: ; nouveau BCONIN 
add #14,sp cir.b f_ play ; non, fin du playback SO SR S 
endm get_stat: bsr new_bconstat 
e bsr old constat tst d0 
physbase: macro tst d0 beq.s new bconin ; attente d'un caractère 
move #2,- (sp) beq stat_rts ; pas de caractère disponible 
trap #14 bsr old conin ; prendre la caractère en attente move. l nxt_char, dû 
addq #2,sp move.l d0,nxt_ char ; et le sauver beq.s get_from def 
endm 
tst.b f_record ; en train d'enregistrer ? cir.l nxt_char 
printline: macro “string beq tst start rec ; non bra.s drop _kbs 
pea \1 
move #9,- (sp) crp.l def _key,dl ; fin de l'enregistrement ? get_from def: 
trap #l beq end record ; oui move. l def_begin,a0 
addq.]l #6,sp move. l (a0)+,d0 
addq.1 46,sp move.l keys free, al ; enregistre le caractère move.l a0,def begin 
endm : dans la définition 
addq #4,-2(a0) : incrémente la longueur de drop _kbs: 
setexec: macro °new_ address, vector nr ; la définition btst #3, (conterm) .w ; l'appelant souhaite 
pea \l move. defs free, a0 ; le status du clavier ? 
move \2,- (sp) move. l d0, (a0)+ bne.s ret_key ; oui 
move #5,-{(sp) move.l a0,defs free ; maj de la fin de la 
trap #13 7; définition and. #S00£fEfFf, dO ; non, on vire le 
addq.1l #8,sp : statut du clavier 
endm crp.l defs end,a0 ; fin de la table ? ret_key: 
bne char_avail ; non rts 
supexec: macro “routine À 
pea \l cir.b f_record subttl SUPPRIME LA DÉFINITION DE LA TOUCHE 
move #38,-(sp) signal fault ; signale 1a fin de la table Em 
trap #14 bra char_avail kill key: ; supprime la touche et sa définition 
addq #6, sp jm 
ic end_record: ; entrée : A0.L -> début de la définition 
signal end ; Al.L -> code de touche 
term 2: macro error nr clr.b f_record ; fin de l'enregistrement $ D2.L = longueur de la définition 
move \1,-(sp) cir.l nxt_char : supprime le caractère 
ch lai (sp) : de fin de définition suite en page 27 
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suite de la page 26 
sub.1 d2,defs free 
sub.1 #6,keys free 
kk_nxtl: 
move .b 6(al}, (al)+ 
cmp.l keys free,al 
blt.s kk nxtl 
kk_nxt2: f 
move.b 0(a0,d2), (a0)+ 
crp.l defs_free,a0 
bit.s kk_nxt2 
rts 
subttl cherche un code de touche 
find key: ; trouve une touche et sa définition 
: entrée : D1.L = touche (avec 0 ou 2 shifts) 
; sortie : Z si trouvée 
; A0 -> début de la définition 
' Al -> code de touche 
; D2.W= longueur de la définition 
move.l keys begin,al 
move.l keys_free,d2 
sub.l al,d2 
divu #6, d2 : nombre de touches à tester 
move. 1 defs_ begin, a0 
dbra d2,fk_cmp 
tst d2 : remise à 0 du flag Z 
fk_rts: 
rts 
fk nxt: 
. add.w (al) +,a0 : ajoute la longueur de la def 
fk_cmp: 
amp.l (al) +, dl 
dbeq d2, fk nxt 
bne.s fkrts : pas trouvé 
move .w {al),d2 
subq #4,al ; pointe sur le début 
; de la définition 
cp d0, d0 ; positionne le flag Z 
rts 
subtt]l PREND LE STATUT DU CLAVIER 


old constat: 


D0 = -1 si un caractère est disponible 


; sortie : 


tst.b 
beq.s 


physbase 
move.l 
add 
move.b 
ror.b 
move .b 


move .b 


start_stat: 


move.l 


setexec (a0),#45 


move.l 


bconstat 
move.l 
move.l 
setexec 
move. 


rts 


subtt]l 


f record 
start _stat 


d0,a0 
#32000-80-82, a0 
flip,d0 
#1, d0 
d0, (a0) : amuse l'utilisateur 

; pendant la définition 
d0, flip 


; sauve l'adresse de 
; la nouvelle routine 
; restaure l'ancien vecteur 
d0,current_trap : garde le vecteur 

: actuel du trap 13 


old trap+2,a0 


#2 

d0,-(a7) ; sauve le registre 
current _trap, a0 

(a0),#45 ; restaure le vecteur courant 
(a7) +, d0 ; restaure le registre 


LIT 1 CARACTERE AU CLAVIER 


old conin: ; prend le caractère au clavier 


ï 
: sortie 


’ 


; utilise 


proc char: 


: DO = caractère en entrée 
D1 = DO avec 2 touche shift keys si au 


: D2 
move.l 


setexec (a0),445 


move. l 


move.b 
bset 


bconin 
move.b 
move.l 
move.l 
setexec 
move. 1 
move. l 
move. | 


and.l 
beq.s 


au moins une est pressée 
old trap+2,a0 ;: sauve l'adresse de la 
; routine de trap 
: restaure l’ancien vecteur 
d0,current_trap ; garde le vecteur 

; trap 12 courant 


(conter) .w,old conterm 
#3, (conterm) .w ; afin que le statut du 
: clavier soit dans 
: l'octet de poids fort 
#2 


old conter, (conterm) .w ; restaure contemm 


d0,-{a7) ; sauve le caractère 
current_trap,a0 
(a0),445 + restaure le vecteur courant 
{a7)+,d0 : restaure le caractère 
#$03000000, d2 : masque pour les 

: touches shift 
d0,d1 
d2, dl 
oc rts * aucune touche 


: shift appuyée 











move. 1 d2,dl 
oc rts: 
or.l d0,d1 
and.l #SOFFÉEFÉE, di ; enlève le flag 
; caps lock 
rts 
subtt]l DATA 
55 section DATA 
even 
\ 
current _trap: dc.l $54321 ; vecteur trap 13 
; courant quand le programme 
.: est appelé. 
old trap: jm $12345.1 ; conserve l'ancien vecteur 
trap 13 
current def: de.l 0 ; caractère en train 
% ; d'être défini 
nxt_ char: dc.l 0 ; caractère en attente 
f_record: dc.b 0 ; © 0 pendant 
: l'enregistrement 
£ play: de.b 0 ; © 0 pendant le 
1 ; playback 
flip: de.b 3 ; utilisé pour dire à 
; l'utilisateur qu'on est en 
; train de définir 
snd start: de.b 0,$30 : son de début de définition 
_ de.b 1,0 
de.b 2,0 
de.b 3,0 
de.b 4,0 
de.b 5,0 
de.b 6,0 
de.b 1,$fe 
dc.b 8,$10 
dc.b 9,0 
dc:b 10,0 
de.b 11,0 
de.b 12,$10 
de.b 13,9 
dc.b $££,0 
snd_ end: ; son de fin de définition 
dc.b 0,$28 
dc.b 1,0 
dc.b 2,0 
dc.b 3,0 
de.b 4,0 
dc.b 5,0 
dc.b 6,0 
de.b 7,$fe 
dc.b 8,$10 
dc.b 9,0 
dc.b 10,0 
dc.b 11,0 
dc.b 12,$10 
dc.b 13,9 
dc.b $££,0 
snd_fault: : son de table pleine 
dc.b 0,50 
de.b 1,1 
dc.b 2,0 
à dc.b 3,0 
RE dc.b 4,0 
4 dc.b 5,0 
dc.b 6,0 
1° de.b 7,$fe 
ge dc.b 8,510 
à de.b 9,0 
j dc.b 10,0 
dc.b 11,0 
dc.b 12, $20 
de.b 13,9 
de.b $ff,0 
î section  BSS 
even 
defs begin: ds.l 1 ; pointe sur le ler 
; caractère de la lère def 
defs end: ds:.10 BE ; pointe après la zone de def 
defs free: ds.l 1 ; pointe sur la lère place 
;: libre pour l'enregistrement 
def begin: dsila) 1 : pointe sur la def à re-jouer 
def_end: ds.l 1 ; pointe sur la fin de 7 def 
keys begin: ds.l 1 : pointe sur la lère 
; touche définie 
keys end: ds.l 1 : pointe après la zone des 
touches définies 
keys_free: ds.l 1 : pointe sur la lère place 
: libre pour les touches à définir 
old conterm: ds.b 1 : ancienne valeur de contem 


: début des définitions, suivies par les touches définies 


reservation: 
subttl INSTALLATION 
page 
; section TEXT 
install : début du programme, installe la partie 
résidente 
lea stack,a7 : assigne le stack 
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printline logo 


supexec 
bsr 
bne.s 


bconin 
term 2 


no_error: 
setexec 


move.l 


printline 
move 

bsr 
printline 
move 

bsr 
printline 


lea 


de touches 
move. 1 


mulu 
add 
move. l 


sub.1 
keepproc 





; affiche le logo 
set_conterm 

dsp def key ; affiche la touche de def 
no_error 


#2 : attend un caractère 
#-1000 : termine avec statut d'erreur 


new_trap, #45 ; change le vecteur TRAP 13 
: pour qu’il pointe sur ce programme 
d0,old trap+2 ; sauve l’ancien vecteur TRAP 


msg_q keys 
max keys, d0 
dsp decimal 
msg_q_defs 
max_defs,d0 
dsp_decimal 
crlf 
reservation, a0 : calcule le pointeur 
: de définitions 
a0,defs begin 
a0,defs free 
max defs,d0 
#4, d0 

d0, a0 

a0,defs end 
a0,keys begin : calcule le pointeur 
a0,keys free 

max _keys, d0 

+6, d0 

d0, a0 

a0,keys end 


#start_prg-256,a0 
#0,a0 ; fin du programme, qui reste résident 


: positionne le bit 3 de la variable BIOS “contermm" 


set _conterm 


0 0 0 0 0 oo 


#3,conterm 


ee me ne ne 


dsp_def_key: 


: sortie : 





move.b 

btst 

beq.s 

printline 
tst_ctrl: 

btst 

beq.s 

printline 
tst_ alt: 

btst 

beq.s 

printline 
dsp_ char: 

tst.b 

bne.s 


move.l 
printline 
and 

rts 


bad def key: 
printline 
or 
its 


dsp_decimal: 


and.l 





: affiche la touche de définition 


flag Z si erreur 


def_key,d3 
#0,d3 

tst ctrl 
msg_shift 


+2,43 
tst_alt 
msg_ctrl 


#3,d3 
dsp_char 
msg_alt 


def_key+2 
bad def key 


#-1,#-1, 8-1 

d0,a0 

(a0) ,a0 

def_key+1,d3; lecture du scan code 
bad def key : doit être < 128 


d3 
(a0,d3), d0 


not_printable ; caractère non imprimable 


# ,d0 
not_printable 


#$7£,d0 
not_printable 


#2, d0 
##11111011,ccr : efface le flag Z 
; pour indiquer aucune erreur 


tab_char,a0 

#2,d3 ; pour accéder au mot long 
(a0, d3.w),a0 

{a0) 

##11111011,ccr : efface le flag Z 


: pour indiquer aucune erreur 


msg _err 
##100,ccr ; positionne le flag Z pour 
: indiquer une erreur 


; affiche D0.L en décimal 


#S££EE, d0 

#1000, d0 

d0,- (sp) ; sauve le reste 

#2,d1l : affiche les milliers 
decimal_nr,a0 


suite en page 28 


KEY _DEFS 


suite de la page 27 
bsr i2s 
move.b #".!, (a0)+ 
move. l (sp) +, d0 
swap dû 
moveq #3,dl 
bsr i2s 


; enlève les zéros du début 
moveq #4, d0 





lea decimal nr,a0 
dd nxt: 
amp.b #"0!, (a0) 
beq.s cir 0 
cmp.b #".",(a0) 
bne.s print_dec 
clr 0: 
move .b #" ‘,(a0)+ 
dbra d0, dd nxt 
print _ dec: 
printline decimal nr 
rts 
i2s : convertit un entier en une chaîne de caractères 


; entrée : dû, entier 
; di, nombre de chiffres 





; aû, adresse de destination de la chaîne 
; sortie : a0, pointe après le dernier caractère 
move dl,-(sp) 
and.l #$££££, d0 
bra.s i2s2 
i2s1: 
divu #10, d0 
swap do 
add #10", d0 
move .b d0, (a0,d1) 
clr d0 
swap d0 
i2s2: dbra di,i2sl 
add {sp} +,a0 
rts 
ï données pour la partie non résidente 
logo: de.b SO ——" 
dc.b 13,10,"Définition de touches. (8-May-91)" 
dc.b 13,10, 
dc.b 13,10,"{c) Michel DESSAINTES" 


DEADKEYS 


suite de la page 25 
de.b Mia”,0,$A0 ; a accent aigu 
de.b "31,0, SA ; i accent aigu 
dc.b “o",0,$A2 ; Oo accent aigu 
dc.b “u“,0,$A3 ; u accent aigu 
de.b “n=",0,$A4 ; n tilde 
dc.b “N-",0,$A5 ;: N tilde 
dc.b “_a”,0,$A6 ; a souligné 
dce.b “_o”,0,$A7 ;: o souligné 
de.b “22",0, $AB ;: 2? inversé 
de.b “(-",0,$A9 ; coin haut gauche 
de.b “)-",0,SAA ; coin haut droit (= not) 
de.b “12",0,$AB : fraction un demi 
dce.b “14",0, $AC : fraction un quart 
dc.b “11#,0, $AD ; ! inversé 
dc.b “<<” ,0,$AE ; guillemet de gauche 
de.b “>>",0,$AF ; gquillemet de droite 
dce.b “a-”,0,$B0 ; a tilde 
dc.b “o-",0,$B1 ; o tilde 
de.b “0,0, $B2 ; O barré 
dc.b “/0",0, $B3 ; o barré 
de.b “eo”,0,$B4 ; ligatureo e 
de.b *E0”,0,$B5 ; ligature O E 
de.b “A°",0,$B6 ; À accent grave 
dce.b SA=",0,$B7 ; À tilde 
de.b *O-",0,$B8 ; O tilde 
dc.b “",0,$B9,' “1,0,$B9 ; tréma (seul) 
dc.b “ ,0,$BA ; accent aigu 
dc.b “_|",0,$BB ; croix 
dc.b “Ip”,0,$BC ; paragraph 
dc.b “co”, 0, $BD ; copyright 
dce.b “OR",0,$BE : registered 
de.b “MT“,0, $BF ; trade mard 
de.b “ij”,0,$C0 PA Log 
dc.b “1J",0,$C1 Ras ph] 


; et maintenant, les caractères hébreux 
; (pourquoi ne pas avoir mis les correspondants IBM ?) 
; NDC: parce que Tramiel est feuj, pardi! 


de.b * x”,0,$C2 : aleph 
dc.b “-c",0,$C3 
de.b “-d",0,$C4 
dc.b “-e",0,$C5 
dc.b “-f",0,$C6 
dc.b “-g",0,$C7 
de.b “-h”,0,$C8 
de.b “-i,0,$C9 
dc.b “-j",0,$CA 
dc.b “-k",0,$CB 
de.b “-1",0,$CC 
dc.b “m",0, $CD 
dc.b “-n",0,$CE 
dc.b “-0",0,$CF 


dce.b 
dc.b 
dc.b 
Elf: dc.b 


msg err: dc.b 
dc.b 
msg_q keys: dc.b 
msg_q_ defs: de.b 
decimal nr: de.b 
msg alt: dc.b 
msg_ctrl: dc.b 
msg_shift: de.b 


even 

tab char: 
dc.l 
dc.l 
dc.l 
dc.l 
dc.l 
dc.l 
dc.l 
dc.l 
dc.l 
dc.l 
de.l 
de.l 
dc.l 
de.l 
de.l 
dc.l 
dc.l 
de.l 
dc.l 
dc.l 
dc.l 
dc.l 
de.l 
dc.l 
dc.l 
de.l 
dc.l 
dc.l 
dc.l 
de.l 
de.l 
dc.l 


FRRRRRRERERERE 
CC -R NC" dd -S 


dc.b 


13,10 

13,10,"Touche de définition :" 
13;10}* N:0 

13,10,0 


13,10,7,"Mauvaise touche de définition,” 
13,10,"Installation NON faite.",0 
13,10,"Nbre max de définitions : ",0 


13,10,"Nbre max à enregistrer : ",0 
V12.345!,0 ; nombre décimal à afficher 
“Alt + ",0 

“Ctrl + ",0 

“Shift + ",0 


: pointeurs sur les descriptifs de touché 


se 00,sc 01,sc 00,sc 00 : 00 
sc 00,sc 00,sc 00,sc 00 
sc_00,sc 00,sc 00,sc 00 : 08 
sc 00,sc 00,sc De,sc Of 
sc 00,sc 00,sc 00,sc 00 ;: 10 
sc 00,sc 00,sc 00,sc 00 
sc _00,sc 00,sc 00,sc 00 : 18 
sc_lc,sc 00,sc 00,sc 00 
se 00,sc 00,sc 00,sc 00 ; 20 
sc _00,sc 00,sc 00,sc 00 
sc _00,sc 00,sc 00,sc 00 : 28 
sc_00,sc 00,sc 00,sc 00 
sc 00,sc 00,sc 00,sc 00 ; 30 
sc_00,sc 00,sc 00,sc 00 
sc _00,sc 39,sc 00,sc 3b : 38 
se 3c,sc 3d,sc 3e,sc 3f 
sc 40,sc 41,sc 42,sc 43 ; 40 
sc_44,sc 00,sc 00,sc 47 
sc_48,sc 00,sc 4a,sc 4b ; 48 
sc _00,sc 4d,sc 4e,sc 00 
sc_50,sc 00,sc 52,sc 53 ; 50 
sc _00,sc 00,sc 00,sc 00 
sc 00,sc 00,sc 00,sc 00 ; 58 
sc_00,sc 00,sc 00,sc 00 
sc 00,sc 61,sc 62,sc 63 ; 60 
sc _64,sc 65,sc 66,sc 67 
sc_68,sc 69,sc 6a,sc 6b : 68 
sc _6c,sc 6d,sc 6e,sc 6f 
sc _70,sc 71,sc 72,sc 00 ; 70 
sc 00,sc 00,sc 00,sc 00 
sc 00,sc 00,sc 00,sc 00 4 T8 


se 00,sc 00,sc 00,sc 00 


“-p",0, $D0 
“-g",0,$D1 
“=r",0, $D2 
“-s",0,$D3 
“-t",0,S$D4 
“u”,0,$D5 
“y”, 0, $D6 
va", 0, $D7 
“-x",0, $DB 
“=y",0,$D9 
Mez",0,$DA 
“a, 0, $DB 
“-b",0,$DC ; fin des caractères hébreux 
“os”,0,$DD ; section 

“L",0,$DE ; lambda majuscule 
“oo",0,$DF ; infini 





: maintenant, quelques caractères grecs 


FRRRRRRRERARRRESE 
C--d-d-- SN --d- N° N° -N 


ct_end: 


“ a”,0,$E0 ; alpha 

“ b”,0,$E1 ; beta 

“G",0,$E2 ; gamma majuscule 
“p”,0#$E30 : pl 

“ 5",0,$E4 ; sigma majuscule 
“s",0,$E5 ; sigma 

“ n”,0,$E6 ; nu 

"CONSEIL : Cau 

“0|",0,$E8 ; phi majuscule 
“T",0,$E9 ; tau majuscule 

“ 0",0,$EA,"0",0,$EA ; theta ma juscule 
“ d”,0,$EB ; delta 

“{o”,0,$EC ; circular integral 
“ f",0,S$ED,"ol”,0,$ED ; phi (?) 
“E",0,$EE ; appartient 
“p”,0,$EF ; pi majuscule 


“=",0,$F0 ; équivalent 

“4-",0,$F1 ; plus ou moins 

“> ",0,$F2 ; plus grand ou égal 
“c",0,$F3 ; plus petit ou égal 
N(.",0,$F4 : intégrale (partie supérieure) 
“).“,0,$F5 ; intégrale (partie inférieure) 
M=:",0,$F6 ; divisé par 

“an",0,$F7 ; à peu près égal 

“o",0,$F8 ; degré 

“xo”,0,$F9 ; point supérieur 

“,%#,0,$FA ; point milieu 

“=v",0,$EB ; racine carrée 

“n",0,$FC ; indice supérieur n 
“29#,0,$FD :; indice supérieur 2 
“39#,0,$FE ; indice supérieur 3 

“ n,0,$FF ; ligne suppérieure 


; fin de la table de conversion 


even 


current _trap: 


old trap: jm 


end resident: 


de.l $54321 ; vecteur trap 13 

; courant quand le programme 
;: est appelé 

: garde l’ancienne valeur 

: du TRAP 13 


$12345.1 


; fin de la partie résidente 
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sc 00: dc.b 
sc 01: dc.b 
sc 0e: de.b 
sc Of: dc.b 
sc lc: de.b 
sc 39: de.b 
sc_3b: de.b 
sc _3c: de.b 
sc _3d: de.b 
sc_ 3e: dc.b 
sc 3f: de.b 
sc_40: dc.b 
sc 41: dc.b 
sc 42: dc.b 
sc_43: dc.b 
sc 44: dc.b 
sc 47: de.b 
sc 48: dc.b 
sc 4a: dc.b 
sc_4b: dc.b 
sc âd: de.b 
sc_4e: dc.b 
sc_50: de.b 
sc 52: de.b 
sc_53: dc.b 
sc_6l: dc.b 
sc _62: de.b 
sc 63: de.b 
sc _64: de.b 
sc 65: dc.b 
sc 66: dc.b 
sc_61: dce.b 
sc_68: dce.b 
sc 69: de.b 
sc_6a: dc.b 
sc_6b: dc.b 
sc_6c: de.b 
sc_6d: dc.b 
sc_6e: de.b 
sc_6f: de.b 
sc_70: dce.b 
sc 71: dc.b 
sc_72: dc.b 

ds.l 
stack: 

end 





“Touche _inconnue”, 0 
“ESC",0 
“BACKSPACE", 0 
“TAB",0 

MRETURN", 0 
"ESPACE", D 

“pl”, 0 

*r2",0 

“r3",0 

“r4",0 

*E5",0 

“F6",0 

“e7",0 

“F8",0 

“r9",0 

“F10",0 
VCLR/HOME", 0 
“Curseur Haut”,0 
“KP—",0 ; KP = clavier numérique 
“Curseur Gauche", 0 
“Curseur Droite", 0 
“KP-+",0 

“Curseur Bas”,0 
“INSERT”, 0 
“DELETE”", 0 


20 ; stack pour la partie 
; non résidente 





: début du programme, installe la partie résidente 


install: 
lea stack,a7 ; assigne le stack 
printline logo ; affiche le logo 
setexec new trap, #45 ; change le vecteur TRAP 13 vector 
7 ; pour qu’il pointe dans le programme 
move. d0,old trap+2 ; sauve 
; l'ancienne valeur du TRAP 13 
keepproc  #0,#end resident-start prg+256 
; fin du programme en laissant 
; une partie résidente 
; donnée pour la partie non résidente 
logo: de.b 13, 10, “= —" 
dce.b 13,10,"Touches Mortes. (8-May-91)” 
dc.b 13/10, "re =" 
de.b 13,10,"({c) Michel DESSAINTES" 
dc.b 13,10,0 
ds.l 20 ; stack pour là partie résidente 
stack: 
end 


STMAGICIEL se fait des ennemis chez les 
feignasses, les fumistes, les fainéants, 
les nullards, les mutilés de guerre, 
les types pressés, les miros 
et les femmes enceintes. 


L'accès au 3615 STMAG, le serveur 
où tous ces listings sont 


téléchargeables en deux temps 
trois mouvements, l'accès à 
ce serveur leur est interdit. 


Ils n'ont qu'à être comme tout le monde, 
et par charité chrétienne, on ne vous 
parlera même pas des Bretons. 
C'est pas l'envie qui nous manque... 








UTILS FX80 


Voici deux petits programmes en assembleur, destinés aux possesseurs d'imprimantes 9 aiguilles compatibles EPSON. 

Le premier est un pilote d'imprimante (nommé aussi “driver” par les anglomanes) : il permet d'imprimer la quasi-totalité 
des caractères étrangers et spéciaux du ST. Une fois assemblé avec l'extension PRG, placez-le dans le dossier AUTO de 
votre disque de démarrage, et le tour est joué : le programme interceptera et traitera tous les caractères dont les codes 
diffèrent entre le ST et l'imprimante. || comporte aussi des garde-fous (les fous en question étant représentés par certains 
codes "ESCAPE’ aux formats un peu “tordus”.…) pour éviter les perturbations de l'impression en mode graphique, ce qui 
est le défaut habituel de ce type d'utilitaire. 

Le second est destiné à être intégré dans vos propres programmes, et a pour but de télécharger un jeu de caractère au 
format EPSON FX vers la mémoire de votre imprimante. || suffit de passer sur la pile l'adresse en mémoire de la fonte à en- 
voyer, cette dernière devant être au format GEM. Un exemple simplifié et minimaliste de chargement d'une fonte GEM en 
basic GFA 3 est joint. Le programme assemblé peut être intégré dans une commande INLINE du GFA 3. Attention : la ré- 
solution des imprimantes 9 aiguilles étant ce qu'elle est, les fontes utilisables sont limitées à 9 lignes en hauteur, et 11 
pixels en largeur. Cela permet tout de même d'employer, par exemple, les fontes DEGAS converties en demi-hauteur avec 
le programme FONTCONV.PRG. Il sera souvent utile de les retravailler avec un éditeur de fontes GEM, afin de supprimer 
les points contigÜs horizontalement, qui ne seraient pas imprimés correctement. 
















Emmanuel TALMY 

ARR AH AAA HDI HO AH moveq fn typl-1, dl Type 1=téléchargemnt fonte andi #$7F,d1 

* Un driver pour les imprimantes EPSON FX * .drvi0  aæp.b (a0)+, d0 add .w d1,a0 

* Mai 1991 par NCC1701 * dbeq di, .drv10 -hig02  dbra do, .higo1 

ÉTECELLILZILLIISI I LILISIELIL LIL II II III) seq esc typl Marque type 1 reconnu move .b (a0)+,tordu val Longeur de la séquence 

È moveq in typ2-1, dl Type 2=données graphiques x 
SECTION TEXT .drvil cmp.b {(a0)+, d0 * Envoi d'une séquence équivalente à 1’ imprimante 

* dbeq dl, .drvll seq_send: 

* Détermine la configuration actuelle imprimante seq esc typ2 Marque type 2 reconnu tst.b tordu_val S1 longueur séquence<0, 
move #-1,-(a7) moveq fn typ3-1, dl Type 3=tabulations bpl.s .seq0l —> séquence graphique 
move #33,-(a7) .devl2  ap.b (a0)+, d0 move.l  a0,-({a7) 
trap #14 dbeq dl, .drv12 lea seq graph (pc) , a0 Imprimante mode graphique 
addq,w #4,a7 seq esc typ3 Marque type 3 reconnu moveq #n_ graph-1, d0 

* ‘device’ reçoit le numéro du port imprimante moveq in typ4-1,d1 Type 4=longueur de page bsr.s seq_output 
move #0, device .drvl3  cmp.b (a0)+, d0 move.l  (a7)+,a0 
btst #4, do dbeq di, .drv13 .seq01 move.b tordu val(pc),d0 Envoi de la séquence 
beq.s zoù seq esc_ typ4 Marque type 4 reconnu andi #57F,d0 équivalente 
move #1, device * Détermine le nombre de paramètres fixe du code subq #1, d0 

zou: lea fix parm(pc) ,a0 bsr.s seq_output 

* Revectorise le BIOS pour gérer la fonction BConout move.b  0{a0,d0),d0 tst.b tordu_val SI séquence graphique, 
pea drv bios (pc) move d0,esc. decount bpl.s -seq02 
move #45,-(a7) lea seq nulnul(pc),a0 2 octets nuls à la fin 
move #5,-({a7) sf esc flag Marque code ESCAPE reconnu moveq in nulnul-1, dû 
trap #13 sf tordu flag bsr.s seq_output 
addq.w #8,a7 cir.b tordu val Compteur de tabulations à 0 .seq02 rte Retour après le TRAP 
move.l  d0,stnd bios+2 bra stnd_bios Envoi du caractère... #13 

* Revectorise le XBIOS pour gérer la fonction SetPrt L À 
pea drv xbios (pc) drv20 tst esc_ decount S'il reste des paramètres, seq_output : 
move #46,-(a7) beq.s drv30 move .b (a0)+,d1 
move #5,-(a7) subq #l,esc decount -1 paramètre movem.l d0/a0,-(a7) Sauvegarde pointeurs 
trap #13 bra stnd bios Envoi du car tel quel... move dl,-(a7) 
addq.w #8,a7 * move device,-(a7) Port imprimante 
move. | d0,stnd xbios+2 drv30 move .b esc typl, d0 SI typel ou type? en cours, move #3,-(a7) Code BConout 

* Initialise les variables et drapeaux internes or.b esc_typ2, d0 {2 octets nécessaires) pea -seq03 (pc) Simule un TRAP #13 
sf esc typl beq.s drv40 move sr,-(a7) avec retour en .drv103 
sf esc typ2 tst.b tordu flag SI c'est le ler octet, bra stnd bios 
sf esc typ3 UTILIT AIRE bne.s .drv31 .seq03  addq.w  46,a7 
sf esc typ4 # lutions move.b 1(a0),tordu val mémorise cœæt octet movem.l  (a7)+,d0/a0 Restaure les pointeurs 
s£ esc_flag Toutes Réso st tordu flag marque premier octet lu dbra d0,seq output Boucle sur la séquence... 
cir esc decount bra.s -drv39 et l'envoie à l'imprimante. its 

* Affiche le message d'installation ® 
pea msg (pc) .dev3] move .b 1(a0) , d0 SI c'est le 2nd octet, stnd bios jmp $12345678 Saut au BIOS standard 
move #9,-(a7) sf tordu flag marque second octet lu * 
trap #1 tst.b esc typl SI gestion du type 1, SECTION DATA 
addq.w 46,a7 beq.s .drv32 * 

* Quitte le programme en le laissant. résident. sub.b tordu val, d0 norbre d'actets de données= * Liste des codes ESCAPE de format spécial 
move.l ‘4{a7),a5 « Adresse basepage ext d0 12*{n2-n1+1) * 
move.l : 4256,d0 Longueur basepage addq #1,d0 tordus : 
add.]l 12(a5), d0 + longueur Text mulu #12, d0 typl dce.b \g! Type 1 = Fonte EPSON 
add.l 20(a5) , d0 + longueur Data sf esc_typl Marque type 1 terminé n_typl=*-typl 
add.1 28(a5), d0 + longueur Bss bra.s .drv33 typ2 dc.b VAI ,IK!,!L',!Y!,!2! Type 2 = Graphismes 
cir -(a7) .drv32  asl #8,d0 SI gestion du type 2, n_typ2=+-typ2 
move. d0,-(a7) Taille à réserver move .b tordu val, dû nonbre d'octets de données= typ3 de.b 18" ,'D' ,'b' Type 3 = Tabulations 
move #$31,-{a7) TERMRES sf esc typ2 nl+256*n2 n_typ3=*-typ3 
trap #1 .dev33 move dû,esc decount Initialise le décomptage typ4 de.b \c' Type 4 = Longueur page 
ILLEGAL .drv39 bra stnd bios Envoi du caractère... n_ typ4=*-typ4 

RRARRRRRRRARRARRRERÉARRAE * 1e *_ 

* Nouveau vecteur XBIOS * drv40 tst.b esc_typ3 SI type 3 en cours, * Nombre de paramètres fixe pour chaque ESC (0 à 127) 

KARRARÉRRARRRRRÉRRRER RER beq.s drvS0 e 

drv_xbios: addg.b  #l,tordu val #1 tabulation fix parm: 

* Pointeur sur les paramètres du TRAP #14 dans A0 cmpi.b #16,tordu val SI 16 tabulations reçues, de.b 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
lea 6(a7),a0 beq.s .drv4l de.b 0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0 
btst 45, (a7) move.b 1(a0) , d0 ou code NUL, dc.b 0,1,0,0,0,2,1,0,0,0,1,0,0,1,0,1 
bne.s .drv01 bne.s .drv49 de.b 0,0,0,1,0,0,0,0,0,0,3,0,0,0,0,0 
move.l  usp,aû .drv4l sf esc typ3 Marque type 3 terminé de.b 0,1,0,0,0,0,0,0,0,1,1,0,0,0,1,0 

.drv01 : .drv49 bra stnd_bios Envoi du caractère... dc.b 0,1,1,1,0,1,0,1,0,0,0,0,0,0,0,0 

* SI c'est un appel à SetPrt.., * dc.b 0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0 
crpi #33, (a0)+ drv50 tst.b esc typ4 SI type 4 en cours, de.b 1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0 
bne.s stnd_xbios beq.s drv60 ÿ 

* ... pour changer la configuration imprimante, cir esc decount * Séquences pour l'impression en mode graphique 
move (a0) ,d0 move.b  l{a0),d0 si code NUL, seq_ graph de.b ESC, 'L',12,0,0,0 
bmi.s stnd_xbios bne.s .drv59 n_graph=*-seq_graph 

# mémorise dans ‘device’ le nouveau port imprimante addq #,esc decount +1 caractère à filtrer seq_ nulnul dc.b 0,0 
move #0, device Centronics (parallèle) .drv59 sf esc_typ4 Marque type 4 terminé n_ nulnul=#-seq nulnul 
btst #4, d0 bra stnd bios Envoi du caractère * ” 
beq.s .drv02 * * Tables de conversion des caractères spéciaux 
move #1, device ou RS232 (série) drv60: * 

.drv02: * * I) Codes ASCII 0 à 31, sauf codes de commandes EPSON 

* et continue avec le XBIOS standard drv100 cmpi.b #27,1(a0) SI caractère ESCAPE, eqv_low: 

stnd_xbios imp $12345678 seq esc_flag marque ESCAPE en cours de.b 1,$80+8,$18,$38,$6F,$C1,$C1,$6F, 538, $18 

CESTTÉTIETIITII 1111 LIT. * dc.b 2,$80+8,$18,$1C,$F6, 583, 583, $F6, S1C, 518 

* Nouveau vecteur BIOS * move .b 1(a0),d0 Code ASCII à envoyer de.b 3,$80+8,$3C,$24,$24,$E7, $C3, 566, $3C, $18 

ÉTEIETITIII III TTITI II andi #$FF, d0 0 à 255 dc.b 4,$80+8,$18,$3C, $66, $C3, $E7,$24, $24,$3C 

drv bios: de.b 5,$80+8,$7C,$38,592,$C6, $C6, $92, 538,570 

* Pointeur sur les paramètres du TRAP #13 dans A0 cmpi.b #32, d0 SI code<32, dc.b 6,$80+8,$FE,$FE, $FE, $FC, $F8, $F2, $E6, $CE 
lea 6{a7),a0 bcc.s drv110 de.b 7,$80+8,$EE, $C6, 592, 538, 538, $92, $C6, $EE 
btst 45, (a?) lea eqv_low(pc) ,aû Table des codes ASCII<32 dc.b 26,$80+8,$00,$0C,$2E, $2A, S2A, $3E, $1C, $00 
bne.s .drv0l bra.s .low03 Recherche dans la table dc.b 28,$80+8,$00,$00,$00,$3F, $7A, $E3, $E3, $E1 
move. l usp,a0 .low01 cmp.b d0, dl SI caractère trouvé, de.b 29,$80+8,$E0,$E1,$E2,$C3, $62, $3F, $00, $00 

.drv0] : beq.s seq_send on envoie sa séquence de.b 30,$80+8,$00,$00,$07,583,$67,$3C, $5C, SEA 

* SI c'est un appel à BConout (fonction no 3)... .low02 move .b tordu val,dl SINON, caractère suivant dc.b 31,$80+8,$2A,$2a,$52,$2C, 5170, $80, 500, $00 
moveq #3,d0 andi #$7F, dl dc.b 0,0 
swap dû add.w di, a0 * 

* ... vers le port de l'imprimante, .low03  move.b (a0)+, dl Code caractère courant, * II} Codes ASCII 128 à 255 
move device (pc) , d0 move .b (a0)+,tordu val Longueur de la séquence L 
amp. (a0)+, d0 bne.s .low01 SI fin de table, BS=8 
bne stnd bios bra stnd bios Envoi direct du code ASCII ESC=27 

* * usa=0 
tst.b esc flag SI c'est un code ESCAPE, drvl10 © cmpi.b  #128,d0 SI code>127, france=1 
beq.s drv20 bcs stnd bios germmany=2 

drvi0 move (a0), d0 Code ESCAPE à traiter subi +128, d0 england=3 
andi 4#57F, d0 varie de 0 à 127 lea eqv high{pc) , a0 Table des codes ASCI1>127 italy=6 

* Détermine si c'est un code à nombre de paramètres variable bra.s -higo2 Recherche dans la table spain=7 
lea tordus (pc) ,a0 Liste de ces codes -hig01 move .b (a0)+, dl Saute la séquence courante japan=8 


UTILS FX80 


norway=9 
* 


eqv high: 

de.b 7,ESC,'R', france, 92,ESC, 'R' ,usa 

dc.b 7,ESC,'R',germany, 125,ESC, 'R',usa 
dc.b 7,ESC,'R', france, 123,ESC,'R' ,usa 

deb 3,'at;ps; "nt 

dc.b 7,ESC,'R',germany, 123,ESC, 'R' ,usa 
de.b 7,ESC,'R', france, 64,ESC, 'R' ,usa 

dc.b 7,ESC,'R',norway, 125,ESC,'R' ,usa 

dc.b 7,ESC,'R', france, 92,ESC,'R' ,usa 

dc.b 3,'e’,Bs,'* 

dc.b 9,'e',BS,ESC, 'R', france, 126,ESC, 'R' ,usa 
de.b 7,ESC,’R', france, 125,ESC,'R' ,usa 

dc.b 9,'i’,BS,ESC, 'R', france, 126,ESC, 'R',usa 
deb 3,'"15:85,°"? 

de.b 7,ESC,'R',italy,126,ESC, 'R' ,usa 

de.b 7,ESC,'R',germany, 91,ESC,’R' ,usa 

dce.b 7,ESC,'R' ,norway, 93,ESC, 'R' ,usa 

de.b 7,ESC,'R',norway, 64,ESC, 'R' ,usa 

de.b 7,ESC,'R',norway, 123,ESC,'R' ,usa 

de.b 7,ESC, 'R',norway, 91,ESC, 'R',usa 
de.b.3,!0!,Bs,!*! 

dc.b 7,ESC,'R',germany, 124,ESC, 'R’ ,usa 
de.b 7,ESC,'R',italy,124,ESC, ‘R' ,usa 

de.b 3;/uf;ps,#2! 

dc.b 7,ESC,'R', france, 124,ESC,'R' ,usa 

dc.b 9,'y',BS,ESC, 'R', france, 126,ESC, 'R',usa 
dce.b 7,ESC,'R',germany, 92,ESC, ' R’ ,usa 

dc.b 7,ESC,'R',germany, 93,ESC,'R' ,usa 

dc:b 3,°c!,BS;"|" 

de.b 7,ESC,'R',england,"#!,ESC,’R',usa 
dc.b 7,ESC,'R’, japan, 92,ESC, 'R' ,usa 

de.b 7,ESC,'R',germany, 126,ESC,'R',usa 
dc.b $80+8,500,$22,$7E, SFC, $AO, $A0, $80, $00 
dc.b 3,'a!,Bs,39 

dc.b 3,'i',Bs,39 

dc.b 3,!0!,BS,39 

dc.b 3,'u’,Bs,39 

de.b 7,ESC,'R',spain,124,ESC,'R' ,usa 

de.b 7,ESC,'R',spain, 92,ESC, 'R' ,usa 

dc.b 3,'a',Bs,95 

dc.b 3,'0!,BS,95 

dc.b 7,ESC,'R',spain, 93,ESC, 'R' ,usa 

dc.b $80+8,$00,$00,$1E, $1E, $10,$10,$10, $00 
dc.b $80+8,$00,$10,$10,$10, $1E, $1E, $00,$00 
dc.b $80+8,$E6, $EC, $18, $30, $69, $D3, $9F, $OD 
dc.b $80+8,$E6,$EC, $18, 536, $6A, $DF, $9F, $02 
dc.b $80+8,$00,$00,$00,$5F,$5F, $00,$00, $00 
dc.b $80+8,$10,$38, $6C, $D6, SBA, $6C, $C6, $82 
dc.b $80+8,$82,$C6, $6C, $BA, $D6, $6C, $38,$10 
de.b 3,'a!,Bs,!-1 

dc.b 3,'o',BS,!-! 

dc.b 7,ESC,'R',norway, 92,ESC,' R' ,usa 

de.b 7,ESC,'R',norway, 124,ESC, 'R',usa 

dc.b $80+8,$1C, $3E, $22, $3E, $3E, $2A, $3A,$18 
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‘ 
‘ * Exemple de téléchargement de fontes GEM vers une EPSON FX dé 
‘ * Cet accessoire permet d'envoyer une fonte sur une imprimante EPSON * 
‘ * Pour réactiver la fonte interne de l'imprimante, choisir ‘ANNULER' * 
‘ 
1 


* dans le sélecteur de fichiers. * 
RAREMENT ER ER RER ARE R ERA RAR RER ER ÉRRRÉRÉRÉRRÉRLÉLERERARLRÉLERRE 


* Options de compilation pour les routines ASM 
$c+ 
$m5000 
* INLINE contenant la routine ASM de téléchargement 
INLINE fnt_fx80%, 432 
Enregistrement de l'accesoire 
ap id&=APPL INIT() 
menu _idé=MENU REGISTER (ap ide,” Fontes EPSON FX ") 
IF menu_idé<0 THEN 

“EVNT_TIMER (-1) 
ENDIF 
‘ Initialise les variables disques 
font_drives=GEMDOS (25) 
font_path$=DIRS (0) 
‘ Adresse du tampon de messages GEM 
mesag_buffer%=MENU (-2) 
‘ Initialise la gestion des erreurs 
ON ERROR GOSUB handle error 
Boucle principale de l'accessoire 
DO 

EVNT_MESAG (mesag_buffer*) 

IF INT(mesag buffer$}=40 THEN 

êselect_font 

ENDIF 
after error: 
LOOP 
END 


\ 
VORARRRRAARARARERRRRARARARARARLAERERÉR 
Y * Choix d'une fonte GEM sur disque * 
VORARARRRARARRRARRRARÉRRARRRÉARRARRARRARA 
PROCEDURE select_font 
LOCAL font_addr%, font _err* 
font_path$=font_path$+"*.FNT" 
font_name$="" 
-FSEL INPUT (font path$, font name$,choixe) 
font_path$=LEFTS (font_path$,RINSTR(font_path$,”\"}) 
IF choixe<>0 THEN ! SI choix ‘CONFIRMER 
\ **44 Chargement de la fonte choisie 
font_addr#$-ffont load{font_path$+font_name$) 
Ÿ ### SI chargement OK, envoi à l'imprimante et verdict 
1F font _addr%>0 THEN 
font_err$=C:fnt_fx80$(L:font_adür*) 





dc.b $80+8,$7C,$FE, $82, $FE, $FE, $92, $92,$82 
dc.b $80+8,$00,$07, $8F, $DA, S5A, $0F, $07,$00 
dc.b $80+8,$00, $47,$8F, SDA, S5A, $8F, $07,$00 
dc.b $80+8,$00,$5E, $BF, SEL, $61,$BF, $1E, $00 
dc.b 7,ESC,'R', france, 126,ESC, 'R' ,usa 

de.b 1,39 

dc.b $80+8,500,$00,$20,$7C,$20, $00, $00, 500 
de.b $80+8,$70,$F8,$88,S88, $FF, $00,$FF,$00 
dc.b $80+8,$7E, $C3, SBD, SBD, $A5, $A5, $C3,$7E 
de.b $80+8,$7E, $C3, $BD, $A9, $AD, $B5, $C3,$7E 
dc.b $80+8,$80, $F8, $80,$F8, 560,530, $60,$F8 
dc.b $80+8,$24, $BC, $BC, $05, $01, $BF, $BE,, $00 
dc.b $80+8,$84,$FC, $FC, $85, $01,$FF,$FE, $00 
dc.b $80+8,$00,$6C, $7C, 530, $18, $7C, $6C, $00 
dc.b $80+8,$00,$44,$44,$44,$7C, $7C, $04,$00 
de.b $80+8,$00,$00, $04, $4C, $58, $7C, $7C, $00 
dc.b $80+8,$00,$40, $40, $40, $7C, $1C, $40, 500 
dc.b $80+8,$00,$5C, $5C, $40, $40, $7C, $3C, $00 
dc.b $80+8,$00,$00,$00, $40, $7C, $7C, $00,$00 
dc.b $80+8,$00,$00, $00, $40, $60,$7C,$5C,$00 
de.b $80+8,$00,$40,$7C, $7C, $40, 570, $7C, $00 
dce.b $80+8,$00,$FC, SFC, $04,$44,$7C, $7C, $00 
dc.b $80+8,$00,$00,$40,$40,$70,$70,$00,$00 
de.b $80+8,$00,$00,$44,$44,$44,$7C, $7C, $00 
dc.b $80+8,$00,$C0, $C0, $40,$44,$7C, $7C, $00 
dc.b $80+8,$00,$5C, $7C, 520,564, $7C, $3C, $00 
dc.b $80+8,$00,$00,$04,$44,$7C, $7C, $00,$00 
dc.b $80+8,$00,$00,$78,$7C,$44,$7C,$78,$00 
dc.b'$80+8,$00, $04,$7C, $C, 504, $7C, $7C, $00 
dce.b $80+8,$00,$74,$74,$54,$44,$7C, $7C, 500 
dc.b $80+8,$00,$64,574,$14,$1C, $7C, $6C,$00 
dc.b $80+8,$00, $00, $5E, $5E, $40, $7C, $78, 500 
de.b $80+8,$00, 540, $40, $40, $7C, $3C, $00,$00 
dc.b $80+8,57C,$7C, S$04,$7C, $04,$7C,$7C, $00 


de.b $80+8,$04, $7C,$7C, $40, $7C, $C, $00, $00 Lo 
dc.b $80+8,$00, $00, $00, $40, $7E, $E, $00, $00 EC: 
de.b $80+8,$00, $00, 540, $40, 540, STE, $7E, $00 TT NS 


de.b $80+8,$40,$7C,$7C, $44,$44, $1C, $7C, $00 6 du. 
dc.b $80+8,$00,$70,$70,$50, $40, $7E, $7E, $00 
dc.b $80+8,$00,$00,$60,$70,$1E, $7E, $60, $00 
dc.b 7,ESC,'R', france, 93,ESC,'R' ,usa 

dc.b $80+8,$0C,$18,$30,$60,$30, 518, $0C, $00 
de.b $80+8,$78,$CC, $CC, 570, $38, SCC, $CC,$78 
de.b $80+8,$1C,$3E,$22,$36, $1C, $36,$22,$00 
dc.b $80+8,S$00,$3F,$7F, $D2, 92, $FE, $6C, $00 
dc.b $80+8,$41,$7F,$7F,$41,$41,$60,$70, $00 
dc.b $80+8,$20, $3F, $3E, $20, $3F, $3E, $20, 500 
dc.b $80+8,582,$C6, SEE, $BA, 592, $C6, $C6, $00 
dc.b $80+8,$00,$1C,$3E, 562, $7E, $5C, $40, $00 
dc.b $80+8,$01,$3F, $3E, $02, $3E, S3E, $02,$02 
de.b $80+8,$00,$20,$20,$3F,$3E, $20,$20,$00 
dc.b $80+8,$00,$18,$BD,$E7, $E7, SBD, $18,$00 
dc.b $80+8,$00,$3C,$7E,$52, $52, STE, $8C, $00 
dc.b $80+8,$00, $3A,$7E, $40, $40, $7E, $3A, $00 
dc.b $80+8,$1C, $3E, $66, $F2, $BE, SDC, $40,$00 
dc.b $80+8,$00,$19,$27, $7E, $E4, $98, $00, $00 


IF font _err%=1 THEN 

ALERT 3,"| Fonte de trop grande taille |",1," GLOP “,voide 
ELSE IF font_err?=0 

ALERT 3,"| Imprimante non prête |”,1," GLOP “, voide 
ELSE IF font errt—1 

Active la police téléchargée en double impression 

LPRINT "#";CHR$ (1) ; CHRS (0) ;"G"; 

ALERT 0,"| La fonte ‘“+CHAR{ADD(font addr%,4)]+”" | est 

téléchargée et activée. /|",1, "CHOUETTE", voidé 


ENDIF 
-MFREE (font _addr$) |! Libère la mémoire 
ENDIF 
ELSE ! SI choix 'ANNULER', 


LPRINT “#";CHRS (0) ;CHR$ (0); "H";  ! Réactive la police interne 
ALERT 0,”| La fonte standard de votre | imprimante est 
réactivée. |",1," MERCI ", voide 


ENDIF 
RETURN 
VORARRRARRRRRRÉRRÉRÉRRÉRRRRÉRÉRRRRARRRRRRRRARARRRAREARRÉRRRARAARRARK 
LE Chargement d’une fonte GEM * 
de (strict minimum pour l'application) Le 


DORA ER ARR RAR RO RH KA KR A KR À OR À 


FUNCTION font _load(filenames) 
LOCAL addr$,table#,count& 
OPEN “1”,#1,filenames 
addr%=MALLOC (LOF (#1) ) 
IF addr$>0 THEN 
BGET #1,addr%,LOF (#1) 
INT{ADD {addr%, 36) }=ROR& (INT {ADD (addr%, 36) }, 8) 
INT{ADD (addr%, 38) }=ROR& (INT {ADD (addr#, 38) },8) 
INT{ADD (addr#, 52) J=ROR& (INT {ADD (addr#, 52) }, 8) 
INT{ADD (addr%, 66) }=ROR& (INT{ADD (addr#, 66) },8) 
INT(ADD (addr%, 72) }=ROR& (INT {ADD (addr%, 72) ],8) 
INT {ADD (addr%, 74) }=ROR& (INT{ADD (addr%, 74) },8) 
INT{ADD (addr%, 76) }=ROR& (INT {ADD (addr$, 76) },8) 
INT {ADD (addr#, 78) }=ROR& (INT (ADD (addr#, 78) },8) 
INT {ADD (addr$%, 80) }=ROR& (INT {ADD (addr#, 80) },8) 
INT {ADD (addr#%, 82) }=ROR& (INT {ADD (addr%, 82) },8) 
{ADD {addr%, 72) ]=ADD (addr%, SWAP ({ADD(addr%, 72)})) 
{ADD (addr%, 76) }=ADD (addr%, SWAP ({ADD (adär#, 76) ])) 
table*={ADD (addr$, 72) } 
count4&=MUL (2, SUCC (SUB(INT {ADD (addr%, 38) }, INT {ADD (adar%, 36)}))) 
WHILE count&>=0 
INT{ADD(table$,count4) }=ROR& (INT {ADD (table#,count4) },8) 
SUB count£,2 
HEND 
IF BTST(INT{ADD (addr$, 66) },2) THEN 
table%={ADD (addr$, 76) } 
count£&=MUL {INT {ADD (addr%, 80) }, INT {ADD (addr#, 82) }) 
WHILE count£&>0 


30 








de.b $80+8,$1C,S3E, 522, $7F, $22, $3E, SIC, $00 
de.b $80+8,$00,$7C, SFE, $D6, $92, 592, $92, 500 
dc.b $8048,$00,$7E, SFE, $80, $80, $FE, S7E, S00 
dc.b $8048,500,554,$54,$54,$54,$54, $54, $00 
de:b $80+8,$00, 522, $22, SFA, SFA,$22, $22, $00 
dc.b $80+8,$00, 502, $8A, $DA, $72, $22, $02, $00 
dc.b $80+8,$00, 502, $22, $72, SDA, S8A, $02, $00 
dc.b $80+8,$00,500,$00,$3F,$7F,$40,$70,$30 
de.b $80+8,$0C, $0E, $02, $FE, $FC, $00, $00, $00 
de.b $80+8,$00,510,$10, $D6, $D6,$10, $10, $00 
dc.b $80+8,$00, 524, $48, $48, 24,524, $48, $00 
dc.b $80+8, $00, $40, SEO, AO, SEO, $40, $00, $00 
dc.b $8048, $00, $40, SE, $EO, SEO,$40, $00, $00 
de.b $80+8,$00, $00, $00, $0C, $0C, $00, $00, $00 
dc.b $80+8,$08, $0C, $06, $1E, $38,$20, 20, $20 
dc.b $80+8,$00,$78,$F8, $80,$FB,$78, $00, $00 
dc.b $80+8, 500,48, $D8, $B8, SEB,$48, $00, $00 
dc.b $80+8, $00, $88, SA, SAB, $F8, $50, $00, $00 
dc.b $80+8, $40,$40,$40, $40, $40, $40, $40, $00 


* 
* Message de copyright au chargement en AUTO 


msg dc.b 13,10 
de.b 27,'p DRIVER pour EPSON FX80' 
dc.b LN1S104;27/1qt,13,10 
dc.b 189,'Mai 1991 par' 
de.b ’ NcC1701',13,10 
de.b 0 
* 
SECTION BSS 
EVEN 
device ds.w 1 
esc decount ds.w 1 
esc flag ds.b 1 
esc typl ds.b 1 
esc typ2 ds.b 1 
esc typ3 ds.b 1 
esc typ4 ds.b 1 
tordu_flag ds.b 1 
tordu val ds.b 1 
* 
END 








SUB count, 2 


INT{ADD (tablet, count 6) }=ROR& (INT {ADD (tablet, count} },8) 


ALERT 2,"| Mémoire insuffisante ! |”,1,".GNY “,counté 


ENDIF 

CLOSE #1 

RETURN addr* 
ENDF'UNC 


VORRÉARÉRARÉRRRRRRRRRRÉRÉARÉARÉARAE ER 


‘ # Affichage de l'erreur survenue * 
VORRRRR AR ARRR ARR AR RRRRRÉRRRRRRÉRRÉRRÉRÉ 
PROCEDURE handle error 

LOCAL voidé 

CLOSE 

-MFREE (addr#) 

FRE (0) 


ALERT 2," | Erreur “#STR$S (ERR),1," ET PAF ",voide 


ON ERROR GOSUB handle error 
RESUME after_error 
RETURN 


VORARRARARRARARERRAARÉARARALARRE 


‘* Crée l'Inline OUTPUT.INL * 
1x à charger dans L; 
\* le listing GfA k 


VORRRARARRRARRARERARARRARRRARAR EX 
\ 
yepa ligne=0 
OPEN “o”, #1, "OUTPUT. INL" 
DO 
INC yepa ligne 
yepa_check=0 
FOR yepa_yepa=1 TO 16 
READ yepa donnees 
yepa_donnee=VAL ("&h"+yepa donnees) 
EXIT IF yepa donnee$="-1"" 
ADD yepa check, yepa donnee 
OUT #1,yepa donnee D 
NEXT yepa yepa 
EXIT IF yepa_donnee$="-1" 
READ yepa ctrl$ 
IF VAL(“£h"+yepa ctrl$)<>yepa check 


PRINT “Erreur de DATA en ligne “;yepa ligne;".” 
PRINT "Vous vous êtes trompé, c'est malin.” 


END 
ENDIF 








UTILS FX80 


PRINT “Ligne “;yepa ligne;" exploitée...";CHR$ (13); 


LOOP 

CLOSE #1 

DATA 60,1A,0,0,1, 
DATA 0,0,0,0,0,0, 
DATA 0,4,C,68,0,9, 
DATA 0,34,6E,0,1,1 


1 
0 


5C,0,0,0,34,0,0,0,0,0,0, 10B 
0,0,0,0,0,0,70,1,20,6F, 100 
0,52,6E,0,1,1E,C, 68,0,B,1DF 
4,3F,3C,FF,FE,3F,3C,0,21,4E, 4E,468 


DATA 58,4F,E8,40,2,40,0,1,41,FA,1,2E, 30,80,3F,3A,4A5 
DATA 1,28,3F,3C,0,8,4E, 4D, 58,4F,4A,40,67,0,0,EA, 3C9 
DATA 41,FA,1,44,70,4,61,0,0,E2,67,0,0,DC, 4D,FA, 5C1 
DATA 1,A,22,6F,0,4,24,69,0,48,7E,0,41,FA, 1,28, 357 
DATA 42,A0,42, A0, 42, 0,30, 7,C,40,0,20,6C,C, 10, 36,407 
DATA 0,0,B0,69,0,26,6F,2,30,7,80,69,0,24,6D,0,391 
DATA 0,8E,B0, 69,0,26,6E,0,0,86,D0, 40,3C,32,0,2,441 
DATA 30,32,0,0,%C,40,48,C0,80,FC,0,8,26,69,0, 4C, 4a5 
DATA D6,C0,72,7,48,40,92,40, 16, 3C,0, 80,34, 29,0, 52, 4EA 
DATA C,42,0,9, 6D, 2A, 74,8,30,29,0,50,E7, 40, 49,F3, 476 
DATA 0,0,38,1,32,6, 60,14,9,14,67,8,42,3,D6,E9, 37D 
DATA 0,50,60,C,53,44,6C, 4,52, 4C,78,7,51,CD,FF,EA, 5E7 
DATA 86,46,10,C3, 32, 6, 60,22, 10, 7,28, 4B, 38,2, 60,C,3F1 
DATA 3,14,67,2,1,D0,D8,E9,0,50,53,40,51,CC,FF,F2, 703 
DATA 52,48,53,41, 6A, 4, 72,7,52,4B,51,CD,FF, DC, 41, FA, 66 
DATA 0,6À,70,B,61,0,0,14,67,0,0,E,52,47,C,47,2BB 

DATA 0,7F,6F,0,FF,38,70,FF,4E,75,48,E7,60,E0, 12,18, 6F0 
DATA 48,E7,80,80,3F,1,3F,3A, 0,20, 3F, 3C, 0,3, 4E, 4D,421 
DATA 5C,4F,4A,80,4C,DF,1,1,57,C8,FF,E4,56,C0,48, 80, 782 
DATA 48,C0,4C,DF, 7,6,48, 75,0,0, 85, 8A, 97,95, 8D,FB8, 6C3 
DATA 9C,AD,A8,A5, A4, 99,D4,8F,86,87,DD, 9, 92,91,B2,B3,A46 


DATA B9,8E,99, 9A, 84,94, 81, 90,82, 9D,88,0,0,0,FE, 1C, 1C4 à 
DATA 38,10,0,0,0,0,1B,26,0,0,7F,0,0,0,0,0, 108 


DATA -1 


QUTPUT .INL 





LERELELEELLLELE ETES EST TT TETE ST TETE ETS TIIT..) 


* Téléchargement d'une fonte GEM 


* 


* vers une imprimante compatible EPSON FX * 


* Mai 1991 par NCC1701 


* 


RAR RROR RON RM RAR RAR RAA À RAR HER À AK RON À & 


* 


* Paramètre attendu sur la pile : 


adresse de la fonte 


Code erreur 1 
si fonte trop haute 


ou trop large 


RSRESET 
rs.l 1 
font. addr rs.l l 
* Vérifie la taille de la fonte (9xll maxi) 
moveq #1,d0 
move.]l 4(a7) ,a0 
cmpi 49, 82 (a0) 
bqt exit 
api #11,52 (a0) 
bqt exit 
* Détermine le port de l'imprimante par SetPrt 
move #-1,-(a7) 
move #33,-(a7) 
trap Al pure 
addq.w #4,a7 
asrc #4,d0 
andi #1,d0 
lea device (pc) ,a0 
move d0, (a0) 


Résultat dans device 


* Teste si l'interface de l'imprimante est prête 


move device (pc) ,-(a7) 
move #8,-(a7) 
trap 413 
addq.w #4,a7 
tst do 
beq exit 

* Envoi de l'en-tête de la séquence 
lea font_esc{pc),a0 
moveq fn_font_ esc-1, d0 
bsr seq_send 
beq exit 


Code d'erreur-0 


Code d'erreur=0 


* Initialisations des principaux pointeurs 


lea gem flex{(pc),a6 
move.l 4(a7),al 
move. l 72{al),a2 


Table caractères étrangers 
Adresse de la fonte 
Table de décalage 


Départ au code ASCII 0 


Mise à zéro du tampon 
graphique 


Code ASCII du caractère 
SI code<32, 


correspondance fontes GEM 
Pas dans la fonte? 


reprend Le code original 

SI le code ASCII n'est 

pas défini dans la 

fonte, envoie du blanc 
(-ESPACE-) 


Index décalage 

Pos, départ car.suivant 
Pos. départ car.courant 
Différence=largeur 


moveq 40,d7 
char _loop: 
lea buffer+12 (pc) ,a0 
clr.l -(a0) 
cir.l -(a0) 
cir.l -({a0) 
* Vérifie la présence du caractère dans la fonte GEM 
move d7, d0 
cmpi #32,d0 
bge.s .char01 
move.b 0 (a6,d0)} ,d0 
cp 38(a1),d0 
ble.s .char01 
move d7,d0 
.char0l cp 36(a1) ,d0 
bit send char 
ap 38(al),d0 
bgt send char 
* Détermine la position du caractère dans la fonte 
add d0, d0 
move 2 (a2,d0) ,d6 
move 0(a2,d0),d0 
sub d0, d6 
ext.l d0 
divu #8, d0 


* Adresse du premier octet du caractère 
move. l 76(al),a3 
add.w d0,a3 


8 bits par octet.…. 


Table de données 
+décalage 





GFA & 68000 


* Index du premier bit du caractère dans cet octet 


* Calcul 


.prol 


.pro03 


.pro02 
.pro09 


roveq #7,dl 
swap d0 
sub d0, dl 


de la donnée proportionnelle 


move.b #580, d3 Pas de jambage par défaut 


move 82(al),d2 SI fonte de hauteur 9, 
api +9, d2 
blt.s .pro09 


moveq #8, d2 8 lignes pour EPSON 


move 80{(al),d0 adresse dernière ligne 
asl #3, d0 du caractère 

lea 0 (a3,d0) ,a4 

move di,d4 Boucle de test 

move d6, d5 de la dernière ligne 
bra.s .pro02 

btst d4, (a4) SI pixel allumé, 

beq.s .pro03 

clr.b d3 Active le jambage 
add.w 80{al),a3 Saute la première ligne 
bra.s .pro09 

subq #1,d4 SINON, pixel suivant 
bge.s -pro02 

addq.w #1,ad 

moveq #7, dd 

dbra d5, .pro0l 

or dé, d3 Donnée proportinnelle 


move .b d3, (a0)+ dans le tampon EPSON 


* Mise au format EPSON FX, colonne par colonne 


move d6,d5 Nombre de colonnes 

bra.s next_column Boucle sur icelles 
column loop: 

roveq #7, d0 Colonne de gauche 

move. l a3,a4 Première ligne car. 

move d2,d4 Nombre de lignes 

bra.s next_row Boucle sur icelles 
row_loop: 

btst di, (ad) SI pixel allumé dans 

beq.s . row0 1 la fonte, 

bset d0, (a0) allume le pixel du tampon 
.row01 add.” 80{al),a4 Ligne suivante fonte 

subq #1, d0 Pixel suivant du tampon 
next row: 

dbra d4, row. loop -1 ligne 

addq.w #1,a0 Octet suivant du tampon 

subq H,d1 Bit suivant de la fonte 

bpl.s next column Si on change d’octet, 

moveq #7,d1 recommence au bit 7 

addq.w #1,a3 octet suivant de la fonte 
next_column: 


dbra d5,colum loop -l colonne 


* Envoi du tampon représentant le caractère 


send_char: 
lea buffer (pc) ,a0 
moveq #12-1,d0 12 octets 
bsr seq_send 
beq exit Code erreur 0 si Time-out 
addq #1,d7 caractère suivant, 
api #127,d7 envoyer 128 caractères 
ble char loop 
moveq #-1,d0 Code -1, envoi OK 

exit rts 


* Envoi d’une séquence d'octets à l'imprimante 


* a0=adre 
seq_send: 


.seqÜl 


device 


* Liste des codes ASCII dans les fontes GEM 
* des caractères EPSON 0 à 31 (étrangers) 


gem flex: 
dc.b 
dc.b 
dc.b 
dc.b 


sse, d0=longueur-1 

movem.l dl-d2/a0-a2,-{(a7}) Sauvegarde registres 
move .b {(a0)+,d1 Octet courant 
movem.l  d0/a0,-{a7) Sauvegarde pointeurs 
move dl,-({a7) 

move device(pc),-({a7) Port imprimante 
move #3,-{a7) BConout 

trap #13 

addq.w #6,a7 

tst.l d0 Teste le time-out 
movem. l (a7)+,d0/a0 Restaure pointeurs 
dbeq d0, .seq01 Boucle sur les octets 
sne dû Renvoie d0=-1 si OK 
ext dû d0=0 si Time out 
ext.l d0 

movem. 1 {a7)+,dl-d2/a0-a2  Restaure registres 
rts 

SECTION DATA 


de .w 0 





133,138,151,149,141,248, 156, 173 
168,165,164,153,212,143,134,135 
221,158,146,145,178,179, 185, 142 
153,154,132,148,129,144,130,157 


* Tampon graphique de 12 octets 


buffer 


* Commande 
font_esc 


ds.b 12 


ESCAPE pour le téléchargement sur FX 
dc.b 217,!&!,0,0,127 


n_font esc=t-font esc 
* 


END 


Minitel STMAGICIEL: 


3615 STMAG 





31 


PUREE, C'EST L'OURS, T'AS VU, OH, PUREE? 


C'est le moment de se tenir à carreau, voici l'Ours, un truc obligatoire 
que seuls lisent les hommes de Loi. Ne me demandez pas pourquoi ça 
s'appelle un Ours, alors qu'il n'y a vraiment aucun rapport entre un 
ours et une liste d'individus bossant pour un canard, tout ce que je 
sais, moi, c'est qu'il ne faut pas déconner avec ça, c'est très sérieux, 
c'est la Loi. Oh, purée. 


On commence par le patron, il est barbu, il a une moto, il a un nom qui 

finit par un "i", il est grossier comme pas deux, il a une entreprise de 
presse, c'est, bien sûr, God, dit "Godefroy Giudicelli", aussi appelé “Di- 

recteur de La Publication". Au début, il n'y avait que lui, c'est lui qui fai- 

sait les murs, les portes et les étagères. La première fois que je suis 
venu à Pressimage, je l'ai vu en bleu de travail, tout plein de plâtre, je 
pensais que c'était un ouvrier, je me suis drôlement retenu pour ne pas 

lui donner la bastonnade. On a changé de murs et de portes, mais on a 
gardé les étagères, ça lui aurait fait trop de peine, alors on les a encore, 

même si on sait pas quoi en faire, tu poses un magazine dessus et tout 

se casse la gueule, mais ça lui ferait trop de peine. 

Ensuite, il y a le rédacteur en chef, il s'appelle Mic Dax, encore que ce 
soit pas un vrai rédacteur en chef dans la mesure où il n'y a pas grand 
chose à écrire dans un hors-série spécial listings, ça lui ressemble bien 

à ce fainéant de s'occuper d'un truc où y a pas à bosser, encore un 
coup pour se remplir les poches avec le blé du patron! 

Après ça, il y a ceux-qui-ont-collaboré. Je vais pas tous vous les dé- 
noncer, vous n'avez qu'à lire tous les noms en dessous de chaque pré- 

sentation de programme, je les aurais tous cités si le canard était ven- 
du 25 balles, mais pour 20 balles, faudrait voir à se calmer et à pas 
pousser, Alors, au début, il y a Jacques Caron, l'auteur d'Accload, 
Discpac et Sapristi. Il ne se sent plus depuis qu'il est le nouveau Ré- 
dac'chef de ST Magazine, il veut qu'on le vouvoie, qu'on aille lui ache- 
ter son Coca et qu'on balance ces “vieilles étagères de merde, non 
mais qu'est ce que c'est que cette pourriture, ça vous amuse de faire 
les décharges ?!" (e cite). Ensuite, il y a Oya Shivo, un grand dadais 
qui fait tout dans le désordre; il met ses pompes avant les chaussettes, 
devient célèbre avant de sortir le moindre petit soft, ou bien s'achète- 
et-conduit-une-belle-voiture-qui-coûte-je-sais-pas-combien-de-barres 
avant de passer le permis. Té, il est bon, Oya. Passons à Emmanuel 
Talmy, un vieux de la vieille sur ST, c'est l'auteur, entre autres, d'Inter- 
music et d'Interdigit, très sérieux, personne n'ose imaginer ce qui a dû 
lui arriver pour qu'il soit aussi pince-sans-rire, il ne pade plus que d'im- 
primantes et de trucs sous interuption, avec une voix très grave. 

Rien à voir avec Fabrice Broche, l'auteur de. moui, passons. C'est 
un type pas triste du tout, on se téléphone très très souvent (compre- 
nez “à chaque fois que son soft plante") et on se fend bien la poire, 
vous n'avez qu'à lire son article en fin de journal, et si ça ne vous fait 
pas hurler de rire, c'est que vous n'êtes qu'un imbécile, désolé. Non, 
même pas, je ne suis pas désolé, je n'ai pas à culpabiliser, vous êtes 
un imbécile, je n'y peux rien. Il y en a un qu'il ne faut pas oublier, c'est 
Sébastien Mougey, c'est l'auteur de File Hunter, de pas mal de logi- 
ciels pour des synthés dont je n'ai pas retenu le nom, et prochaine- 
ment de Digital Impact, un soft suuuuuper bien, si vous ne l'achetez 
pas, c'est le même topo que pour tout à l'heure avec Fabrice. Plus 
sympa que Seb, ça n'existe pas, c'est une crème, et Agathe c'est sa 
copine. Pour finir, il y a Pibo, le super dessinateur, si tout va bien il y a 
un article quelque part dans le canard qui vous le présente. Voilà pour 
ces collaborateurs, les ouin-je-suis-pas-cité sont sympas aussi. 


Ensuite, il y a la fabrication. Ca, normalement, c'est Michel qui s'en oc- 
cupe. Toute une histoire, Michel, un ancien de la troupe, il a fait l'Indo 
et l'Afrique Noire. Quand on a fini ST Mag, on vient tous s'asseoir au- 
tour de lui pour qu'il nous raconte ses souvenirs et on s'endort telle- 
ment c'est nul, il nous sort des vannes minables mais on l'adore. Ce 
coup-ci, il était en vacances, il a juste montré en cinq minutes com- 
ment marchaient les 12 machines de l'atelier, il a promis que tout se 
passerait bien et il est parti en rigolant. La maquettiste, c'est Mireille, 
elle aussi en vacances, il a fallu se débrouiller, merci bien. Alors elle, 
c'est l'Espagne. Tu lui parles d'un truc qui n'a pas de rapport avec 
l'Espagne ou avec les trains, elle baille et tu as l'air con. Si tu veux te 
venger, tu l'obliges à parler espagnol, c'est à mourir de rire, on croirait 
Antoine en train d'imiter Godefroy parler anglais, on est tous pliés ! 
Antoine, c'est Antoine Harmel, le Directeur de la Publicité. Pour STMA- 
GICIEL, il s'est pas foulé, vous avez remarqué, mais il n'était pas à son 
affaire, parce qu'il vient juste d'avoir son premier enfant. II a eu la bon- 
ne idée de l'appeler Arthellaïs, c'est un prénom pratique à porter, c'est 
passe-partout, y a pas de problème. Antoine, quand je lui dis ça, il 
comprend bieri que c'est que de la jalousie. La chef de pub, c'est Vé- 
ronique Perrin, qui n'était pas non plus à son affaire, puisque son supé- 
rieur venait d'avoir son premier enfant. À deux, ils nous ont trouvé un 
seul annonceur, on n'est pas dans la mouise. 

Bon, voilà, c'est fini. Les autres de l'équipe, ce sont des comptables, 
des commerciaux, des col-blancs, des conseillers, ils ne nous intéres- 
sent pas, ni vous ni moi, on va pouvoir passer à l'imprimeur. Ha, si, il y 
a Olivier Lepotvin, c'est le Chef des Ventes, c'est un type important, 
pour un canard ! Il a des lunettes. 


L'imprimeur; c'est Paulo, qui travaille aux Imprimeries Mayennaises, à 
Mayenne, dans la Mayenne, au moins il ne s'est pas creusé la tête pour 
le nom. C'est toujours la femme à Paulo qui nous appelle, parce 
qu'avec tout le retard qu'on lui fait prendre à chaque fois, il est telle- 
ment furax qu'il n'est capable que de nous insulter, il a raison. Sinon, la 
photogravure couleur, vous vous en foutez mais c'est quand même 
Serge, de la Sima, qui nous l'a faite, et la photogravure noire, on l'a fait 
faire chez nous, on a un peu tout cassé et salopé mais on y est arrivé. 
Comme d'habitude, il est interdit de recopier ou de traduire (surtout si 
c'est en breton !), même partiellement, nos textes, dessins, photos et 
linstingues sans notre autorisation. Ca ne veut pas dire que vous êtes 
obligés de nous appeler dès que vous voulez recopier un programme, 
ça s'adresse aux autres canards qui voudraient repiquer nos trucs à 
nous. Autrement dit, si vous bossez dans la presse, que ce soit pour le 
Washington Post ou pour le fanzine des Amis de la Philatélie en Aqui- 
taine, et que vous voulez recopier un truc qu'on a fait, nous, eh bien 
vous nous appelez et on s'arrange, c'est tout. 

Notre Numéro De Commission Paritaire, c'est celui de ST Magazine, 
puisque c'est son premier Hors-Série que vous tenez là, c'est le numé- 
ro, écoutez bien, 71845, je répète, 7, 1,8, 4et 5. 

Ok, c'est fini, il n'y a plus rien à voir, et moi, je pars me dorer la peau au 
soleil, je vous embrasse très fort, ne faites pas de bêtises, et envoyez- 
nous des cartes postales, pas à l'adresse du Siège Social de Pressi- 
mage, la SARL de presse au capital de 2000 francs qui édite ST Maga- 
zine, pas au 210 rue du Faubourg Saint Martin 75010 PARIS, mais au 
19 rue Hégésippe Moreau 75018 PARIS, c'est là que nous crèchons. 
Ciao, come back mit velocidad! 


HARDCOPY 


Choisissez à la souris une portion d'écran à imprimer, 
sélectionnez le mode d'impression (8 ou 24 aiguilles) 
et choisissez à quel endroit de la feuille vous voulez 
faire la copie. 


1 
l 
\ 


ALERT 2,"L' imprimante est-elle| 


Michel MOUSSIÉ 


PROGRAMME D'ESSAI DES ROUTINES DE COPIE D'ECRAN 
“HARDCOPY_24” 
Michel Moussié - 13 juin 1991 
opérationnelle?”,0," SUITE | 


INFOS *, 13k4 
IF À jk4=2 


ALERT 0,"Programme HARDCOPY 24| Michel Moussié| 13 juin 


1991",0," SUITE ",ijk% 
ENDIF 
IF ijkt=1 


REPEAT 

GOSUB texte (0) ! écran pour essai 

GOSUB fenetre ! définition fenètre à copier et mode 

SELECT casè : 

CASE 1 ! hardcopy mode 8 aiguilles 
GOSUB texte (1) 
GOSUB copie 8 

CASE 2 ! hardcopy mode 24 aiguilles 
GOSUB texte (1) 
GOSUB copie 24 

ENDSELECT 


ALERT 2,"Voulez-vous continuer| ou abandonner”,0," SUITE 


IABANDON" ,choix$ 


UNTIL choix#t=2 


ENDIF 
END 


L 


CITEZETEEDEIR REIN NNNNTES SERIES SEEETESEEEEEEEZEE LE LE 


PROCEDURE fenetre 


GRAPHMODE 3 
Do ! origine du cadre 
MOUSE x0%,y0%, k% 

EXIT IF kf%=1 

LOOP 

x1%=x0% 

y13=y0% 

REPEAT 
DEFLINE 0,1,0,0 
BOX x0%,y0%,x1%,y1% 
MOUSE x13%,y13,k3 
DEFLINE 1,1,0,0 
BOX x0%,V0%,x1%,y1% 

UNTIL k%=0 

DELAY 2 

DEFLINE 0,1,0,0 

BOX x0%,y0%,x1%, y1% 

 y0%=ADD(y0%, 24) 

\ yl#=ADD(y14, 24) 

GRAPHMODE 1 

CLS 

GOSUB message(1) 

A 


! traçage du cadre 


! effacement du cadre 


! correction éventuelle pour 
! window 0 


l infos coordonnées cadre 
————————— VER IF ICAT ION DES COORDONNEES CADRE 
IF x1%<=x0% OR y13<=y0% 
GOSUB message (2) 
ELSE 
IF x1%>=640 
x1$=640 
dx14=0 
octet_max$=80 
ELSE 
octet_max$=DIV(x1$, 8) ! dernier octet des lignes écran 
dx1%=MOD (x1$%,8) ! dépassement dans le dernier octet 
ENDIF 


\ 


octet min$=DIV(x0%, 8) 


! débordement droit 





! premier octet des lignes écran 


dx0%=-MOD (x0%, 8) ! dépassement dans le premier octets 
LU 
GOSUB message (3) ! choix 8 où 24 aiquilles/abandon 
SELECT cas? 
CASE 1 ! mode 8 aiguilles 
ligne min$=DIV(y0%,8) ! première ligne imprimante 
dy0%=MOD (y0%, 8) ! dépassement dans la lère ligne 
IF y1#>=400 
y1#=400 
dy14=0 
ligne max$=50 
ELSE 


ligne max#-DIV(y1$,8) ! dernière ligne imprimante 
dy1$%=-MOD(y1%,8) ! dépassement dans la dernière ligne 
ENDIF 
CASE 2 ! mode 24 aiguilles 
ligne min#$=DIV(y0%,24) 
dy0%=MOD (y0%, 24) 
IF y1$>=400 
y1$=400 
dy1%=16 
ligne maxt=17 
ELSE 
ligne max$=DIV(y1%,24) 
dy1#$=MOD(y1%, 24) 
ENDIF 
ENDSELECT 
IF cas$=1 OR cas$=2 
GOSUB message (4) 
px%=px$*60/25.4 
py$=py#*60/25 .4 
A] 


{ acquisition du positionnement 
! conversion en 1/60 pouce 


———————W{RIFICATION DU POSITIONNEMENT X 
1F (x1%-x0%) /80+px%/60>8 AND cas$=1 
px$=480-(x1%-x0%) *3/4 ! correction dépassement 8 aiguilles 
ENDIF 
IF (x1$%-x0%) /180+px$/60>8 AND cast-2 
px$=480-(x1%-x0%) /3 ! correction dépassement 24 aiguilles 
ENDIF 
4 
r$=XBI0S (2) 
ENDIF 
ENDIF 


| adresse début mémoire écran 


RETURN 
QNTTIIÉEEIIITITIIIEEI IE 00" OC EEEEEIEYESTENEETEESSEESEESEEEEEE EX 
PROCEDURE copie 8 


LPRINT CHR$ (27) :CHR$ (79) ; 
LPRINT CHR$ (27) ;"A";CHR$ (1) ; 


! évitement perfo annulé 
! avance papier 1/60 pouce 





FOR i$=1 TO py# 
LPRINT CHRS (10) ; 

NEXT i$ 

L 


! offset Y sur papier 


LPRINT CHR${(27);"3";CHR$ (24); ! avance papier 24/180 pouce 
LPRINT CHRS (27); "U";"0"; ! impression bidirectionnelle 
\ ———————- CALCUL ET IMPRESSION DES LIGNES 

HIDEM 

bloc$=DIV({(x1%-x0%),256) ! nb de blocs de 256 col./ligne 

extra%=MOD((x1%-x0%),256) ! nb de colonnes en plus/ligne 

debut $=MOD(x0%, 8) ! début de ligne dans impr#{) 

bloc offset+=DIV(px$,256) ! nb de blocs d'offset de 256 col. 

x_offset%=-MOD (px$, 256) ! nombre de col. d'offset en plus 

DIM impr% (x13-x0%+24) ! tableau des octets d'une ligne 

DIM lect| (7) 

FOR ligne#=ligne min$ TO ligne max$ ! les lignes imprimante. 
a1%=ADD(r%,MUL (ligne, 640)) ! adr début de ligne:lignet*880 
FOR octet$=octet min$ TO octet max$ ! octets des lignes écran 

a2%=ADD(al$,octet#) ! adr de l'octet courant. 
a3%=MUL (SUB(octet#$,octet min$),8) 
FOR i%=0 TO 7 ! les 8 octets de meme rang dans lignes 
lect|(i$)=BYTE{a2%+MUL(i$, 80)} ! écran d'une ligne imprimante 
IF lignet=ligne min$ AND it<dy0% ! correction début de colonne 
lect | (i$)=0 
ENDIF 
IF lignet=ligne max* AND it>dy1#$ ! correction fin de colonne 
lect | (1$)=0 
ENDIF 
NEXT i$ 
FOR bit$=1 TO 8 
at=0 
FOR i%=0 TO 7 
ex$=2"SUB (7, it) 
a%=ADD (a%, MUL (VAL (MIDS (BINS (lect | (1#),8),bit%,1)),ex#)) 
NEXT i$ 
impr$ (ADD (a3%, bit$) }=a$ 
NEXT bit4 
NEXT octet# 
LPRINT CHR$ (27) ;"$";CHR$ (x offset?) ;CHR$ (bloc offset) ; 
! offset X sur papier 
LPRINT CHR$ (27) ;“*";CHRS$ (4) ;CHR$ (extra) ; CHR$ (bloc®) ; 
! mode CRTI 
FOR i%=debut#$+1 TO debut#+x1#5-x0% 
LPRINT CHRS (impr$ (i$) ); 
NEXT i$ 
LPRINT CHR$ (10) ; | LF 

NEXT lignet 

LPRINT 

ERASE impr$(), lect | {) 

L 


! calcul des octets imprimante 


GRAPHMODE 3 

DEFLINE 1,1,0,0 

\ y0%=SUB (y0%, 24) 

\ y1$=SUB(y1$, 24) 

BOX x0%,y0%,x1%,y1% 

GRAPHMODE 1 

SHOWM 
RETURN 
NILITENEEETEEETSTETTEESE 00 PUCES EETSESEETEEESÉEEEEREEEEETE) 
PROCEDURE copie 24 

LPRINT CHR$ (27) ;CHR$ (79) ; 

LPRINT CHR$ (27) ; "A";CHR$ (1) ; 

FOR i%=1 TO py$ 

LPRINT CHR$ (10); 
NEXT i$ 


L 


! correction éventuelle pour 
! window 0 


! évitement perfo annulé 
|! avance papier 1/60 pouce 
! offset Y sur papier 


LPRINT CHR$ (27) ;3";CHR$ (24); ! espace 24/180 pouce 
LPRINT CHR$ (27) ;“U";"0"; ! impression bidirectionnelle 
b CALCUL ET IMPRESSION DES LIGNES 





HIDEM 
bloct=DIV((x1%-x0%),256) ! nb de blocs de 256 col./ligne 
extra%=MOD ( (x1%-x0%),256) ! nb de colonnes en plus/ligne 
debut #=MOD (x0%, 8) ! début de ligne dans impr#() 
bloc offsett=DIV(px$,256) ! nb de blocs d'offset de 256 col. 
x_off£set%=MOD (px, 256) ! nombre de col. d'offset en plus 
DIM impr$(x1$-x0%124,2)  ! tableau des octets d'une ligne 
DIM lect | (23) ! tableau des octets de 8 col. 
FOR ligne*=ligne min$ TO ligne max* 
al%=ADD (r$,MUL(ligne*, 1920)) ! adr début de ligne: 
FOR octet$=octet min$ TO octet max$ ! r$+(lignet*24*80) 
a2%=ADD(al$,octet#) ! adr des octets de la ligne 
a3%=MUL (SUB (octet#,octet_min$),8) ! nb de Bxcol déjà traitées 
FOR i3=0 TO 23 
lect | (14) =BYTE{a2%#MUL (i$, 80) } 
IF ligne*=ligne min$ AND it<dy0% ! correction déb de col 
lect | (it) =0 
ENDIF 
IF ligne$=ligne max$ AND it>dyl% ! correction fin de col 
* lect|(i$)=0 
ENDIF 
NEXT i$ 
FOR bit$=1 TO 8 
at-0 


! 8 col. suivantes de la ligne 


FOR i$%=0 TO 7 ! 8 bits des 3 octets de la col. 
ex$=2"SUB (7,1%) 
a%=ADD (at, MUL (VAL (MIDS (BINS (lect | (14),8),bit#, 1}),ex$)) 
b=ADD (b+, MUL (VAL (MID$ (BINS(Lect | (i$+8),8),bit#,1}},ex#)) 
ct=ADD(c$, MUL (VAL (MIDS (BINS (Lect| (i+16),8},bit$, 1)),ext})} 
NEXT i$ 
irpr% (ADD (a3%,bit#),0)=a% 
impr (ADD (a3%,bit$),1)=b$ 
impr% (ADD (a3%,bit#),2)=c$ 
NEXT bit# 
NEXT octet$ 
LPRINT CHR$ (27) ;"$";CHR$ (x_offset#) ; CHR$ (bloc_offset#) ; 
! offset sur papier 
LPRINT CHR$ (27);"*";CHR$ (39).;CHR$ (x1%-x0%) ; CHR$ (bloc) ; 
! mode triple dens. 
FOR i%=debut$+1 TO debut++x15-x0% 
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LPRINT CHR$ (impr (it, 0) }:CHRS (impr# (1%, 1) };CHRS (impr (it, 2)); 

NEXT 1% Û 

LPRINT CHRS (10); ! LE 
NEXT ligne* 
LPRINT 
ERASE impr$(),lect| () 
\ ——————————————RETRACAGE DU CADRE 
GRAPHMODE 3 
DEFLINE 1,1,0,0 
\ yO#=SUB (y0$, 24) 
\ yl1$=SUB(y1%,24) 
BOX x0%,y0%,x1#,y1% 
GRAPHMODE 1 
1 


! correction éventuelle pour 
! window 0 


SHOWM 
RETURN 
VORASNSSEREENENEEEEFSSTESERSIMESSAGERSERERESHEN ER ENEUNSRRENE 
PROCEDURE message (numero) 
SELECT numero$ 
CASE 1 
PRINT AT(20,2});"Les coordonnées de la fenêtre choisie sont:" 
PRINT AT (30,3) ;"x0=";x0% 
PRINT AT (45,3) ;"y0=";:y0# 
PRINT AT(30,4);"xl=";x1% 
PRINT AT(45, 4) ;"y1=";y1# 
CASE 2 
ALERT 1,"Coordonnées de fenêtre| 
CASE 3 
ALERT 2,"Voulez-vous une copie d’écran| 8 ou 24 
aiguilles] ou abandon“, 0," 8 | 24 JABANDON",cas$ 
CASE 4 
PRINT AT(15,6);"Quel positionnement sur le papier désirez-vous?” 
LOCATE 30,7 
INPUT “offset X en mn";:px$ 
LOCATE 30,8 
INPUT “offset Y en mm“;py# 
ENDSELECT 
RETURN 
NOR ENERRSREENUSENSEEATEXTENTÉSERFERSS HEURES 
PROCEDURE texte (cas) 
CLS 


erronnéees",0, "RETURN", ik 


PRINT 

PRINT * ROUTINES DE COPIE D'ECRAN POUR IMPRIMANTE 24 AIGUILLES * 
PRINT * Michel Moussié - 13 juin 1991" 
PRINT 

PRINT * Deux routines permettent de réaliser des copies 


d'écran, l'une (COPIE 24)” EE Le — 
PRINT “ utilise le mode 24vafgquilles, l’autre (COPIE 8) le 


mode 8 aiguilles. Une” 

PRINT “ routine (FENETRE) permet de choisir une portion de 
l'écran et de la copier” 

PRINT “ à un endroit choisi de la feuille." 

PRINT 

PRINT * Dans le mode 24 aiguilles 3 octets sont néces- 
saires pour commander les” 

PRINT “ 24 aiguilles de la tete d'impression tandis que dans 
le mode 8 aiguilles” 

PRINT “ un octet suffit pour commander une aiguille sur 
trois de la tete. Il en” 

PRINT “ résulte que en mode 24 aiguilles les dimensions de 
la copie sont divisées" 

PRINT “ par trois par rapport à celles en mode 8 aiguilles.” 

PRINT 

PRINT * Le corps du programme n'a pour but que de pouvoir 
utiliser les routines.” 

PRINT “ La routine TEXTE génère cet écran d'essai qui donne 
quelques explications.” 


PRINT “ Les messages des routines sont réunis dans la routi- 
ne MESSAGE." 

PRINT 

PRINT * La source HARDCOPY.GFA est documentée de façon à 


pouvoir en suivre le" 
PRINT “ fonctionnement tandis qu’une version compilée .PRG 
permet de juger de la” 
PRINT “ rapidité. Le programme a été testé avec une impri- 
mante PANASONIC KX-P1124.” 
PRINT CHR$ (27) ;"p" 
IF cast-0 
HTAB 5 
PRINT “GENERER UNE FENETRE A L'AIDE DE LA SOURIS ET DE SON 
BOUTON DE GAUCHE" 


ENDIF 
IF cas=1 
HTAB 25 
PRINT “ATTENDEZ, CALCUL EN COURS." 
ENDIF 
PRINT CHR$ (27) ;"q"; 
RETURN 


Minitel STMAGICIEL: 
3615 STMAG 


Téléchargez les listings 
publiés dans ce numéro. 


Protocole SAPRISTI. 


Se] 


GFA-PUNCHS 


Des GfA-Punchs, ce sont des listings en GfA de 
20 lignes grand maximum, on n'a pas le droit de 
les dépasser sinon ça compte pas. 


D am 1 & & ON ra 
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20 


Tonton PUNCH 


Voici un nouveau venu qui fait très fort, il s'agit de Flagnum, 
qui commence par une démo paramétrique. 


GRAPHMODE 2 
FOR i=1 TO 15 
COLCR i 

LINE 0,i,319,i 
NEXT i 

TEXT 80,11," THE PARAMETRIC DEMO" 
GET 80,1,260,15,p$ 

a$=MKIS (1) 4MKIS (16)-MKI$ (1)+MKIS (0) 4MKIS (1)-+MKIS$ (112) +MKIS (32) + 
MKIS (248) +MKIS$ (80) +MKIS$ (508) 4MKIS (168) +MKIS (1022) +MK15 (332) + 
MKIS (2047) +MKI$ (658) +MKI$ (4095) +MKI$ (1317) +MKIS$ (8191) 4+MKIS$ 
(2634)-MKI$ (8190) +MKI$ (3220) +MKI$ (16380) +MK1$ (5416) 

a$=a$+MKI$ (16376) +MKI$ (4688) +MKI$ (32752) #MKI$ (8608) +MKI$ (32736) 
+MKI$ (8384) 4MKI$ (65472) +MKIS (21248) #MKIS$ (65280) +MKI$ (19456) + 
MKI$ (64512) 4MK1$ (61440) +MKI$ (61440) +MKI$ (49152) 

PELLIPSE 166,24*8-4,74,8 

FOR i=0 TO 16*PI STEP 0.05 

SETCOLOR 15*(-(i=2*PI)-(i MOD 2*PI<0.1)),-15*{i=2*P1)-INT (RND 
*15)*(i MOD 2*PI<0.1),-15*(i=2*PI)-INT (RND*15) * (i MOD 
2*PI<0.1),-15*(i=2*P1)-INT(RND*15) * (i MOD 2*PI<0.1) 

SPRITE a$,COS(i)"(4*INT(i/8/P1)+1) *80+160,SIN(i)  (4X((INT 
(i/(2*P1))) MOD 4)+1) *80+95 

PILOT COS(i)}"(4*INT(i/8/PI)+1)*80+160,SIN(i)*(4*((INT({i/(2*PI))) 
MOD 4)+1)*80+95 

PRINT AT(15,24) :MIDS (* SALUT À TOUS !!!!1 FLA 
GNUM VOUS PRESENTE LA YPARAMETRIC DEMO’ { non qu'elle 
soit paramétrable -rassurez vous- mais le dessin là haut * 
c'est une courbe paramétrée.",(INT(i*10))} MOD 190,- 
14*(i<6*PI)) 

PRINT AT(15,24) ;MIDS (" 
BAC APPROCHE HEHE. ..) 





UN PETIT BONJOUR À 1024 (LE 
ET A ZOCH (MERCI POUR LA 
REPARATION DE DISQUETTE ... A BIENTOT POUR D'AUTRES PUNCHS 
ses SALUT “, (INT(i*10)) MOD 190,-14*(i=>6*P1)) 
SOUND 1,12,4, INT (RND*12),0.0001 
PUT 80+COS (i-PI/2) *45,1,p$ 
PLOT COS(i*15) *5*INT(i/2/PI)-20*{(i MOD 2#PI<=PI)-300*(i MOD 
2*PL>=PI),-((i MOD 2*PI)*100)*{i MOD 2*PI<=PI)-((i MOD 2*PI)- 
PI)*100*(i MOD 2*PDPI) 


NEXT i CS 





Arnauld Chevallier aime bien les démos, en voici une nouvelle 
avec de la musique s'il vous plait! 


t$="EELJEELJCCJHCCJHEEJLEEJLCCJHCCJHLECEJECEHECEHJLQ00 SALUT À 
TOUS !! VOICI UNE DEMO PUNCH, AVEC UN LOGO PUNCH, UN 
SCROLLING PUNCH, ET UNE MUSIQUE PUNCH !! ESSAYEZ D'APPUYEZ SUR 
LES ‘Shift’ OU SUR ‘Control! ...” 

DEFFILL 2 

PRBOX 0*XBI0S (7,0, 772) *XB10S (7,15, 1888) *XBIOS (7,1,0) *XB105(7, 
14,1655),110,319,140 

GRAPHMODE 3 

PBOX 0*BI0S(11,0),120,319,130 

DEFTEXT 1,16,0,12 

FOR a$-0 TO 1 

TEXT 3+a%,131+a%,315,"VIVE LES GFA-PUNCHS" 

TEXT 6+a%,180+a%,"—-* PUNCH #-—" 

NEXT a% 

FOR 1%=0 TO 10000 

BMOVE XBIOS (2}+4640, XBIOS (2) +4640+160*INT(0.5-SIN(1%/25*PI) #5), 
18080 

IF 1% MOD 4=0 

PRINT AT(39,1);MID$({t$,51+(1%/4) MOD 180,1) 

ENDIF 

GET 2+B10S(11,-1),0,319,7,s$ 

PUT 0,0,5$ 

VSYNC 

SOUND 1,15-(1% MOD 10)/2,ASC(MIDS (t$,1%/5 MOD 50+1,1))-64,3+1% 
MOD (1+2*{INT(1#%/250) MOD 2)) 

NEXT 1% 
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Ernançen, si ru fais 
plus de 20 lignes, 
passe Ton chemin ! 


Comme à la parade, Flagnum continue avec un jeu de robots à 
tomber par terre, on en redemande, bravissimo! Au joystick. 


DIM t (40,40) ,m(4),ms(4) 
FOR i=0 TO 919 
t{-(i MOD 40)*({i MOD 2}=0)+(i MOD 40) * (RND<0.6) *{i MOD 2<>0),- 
INT(i/40)* (INT(i/40) MOD 2=0)+INT (1/40) * (RND<0. 6) * (INT (i/40) 
MOD 2<>0))=1 
t(i MOD 40,INT(i/40))=—(t(MAX({i MOD 40)-1,0),MAX(INT(i/40)- 
1,0))<>1)*t{i MOD 40,INT(i/40)) 
t(i MOD 40,INT(i/40))}={({i MOD 40=0)+{INT(i/40)=0)+{i MOD 
40=39)+{INT (i/40)=22) ©0) *(t(i MOD 40,INT(i/40))<>1)-(t{i MOD 
40,INT(i/40)) 0) 
t(i MOD 40,INT(i/40))={t(i MOD 40, INT(i/40) }=0) * (RND<0..05) *2 
+#t{i MOD 40, INT(i/40)) 
PRINT AT(-(i MOD 40)*(t{i MOD 40,INT(i/40))}>0)+1,-INT(i/40) * 
(t(i MOD 40,INT(i/40))>0)+#1) ;MID$S("#"4+CHRS (127) ,-({t{i MOD 40, 
INT(i/40))=1)-2*(t{(i MOD 40,INT(i/40))=2),1) 
NEXT i 
FOR i=0 TO 25000 
u=i MOD 4 
PRINT AT(-INT(s/100) * (as<>0)+1-(as=0),-(s MOD 100) *(as<>0)+1- 
23*(as=0)};" “;AT(18, 24) ; LEFTS (CHR$ (7) ,-(t (INT((s+as) /100) A 
(stas) MOD 100)=2)); "score :”;sc;" N;AT (-INT {m{u) /100) * (ms 
(u}<>0)+1,-{m{u) MOD 100) * (ms (u) <>0)+1):" *: 
s=s+as-(i=0) 1111 
m{u)=m{u) ms {u) -(i=0) *203-(i=1) *221-(1=2) *3802-(i=3) 3821 
as=(({STICK(1)=4)* (t(INT(s/100)-1,s MOD 100)<>1)* (INT(s/100)>1) 
—{STICK({1)=8) * (t(INT(s/100)+1,s MOD 100) <>1) * (INT (s5/100)<=40))) 
#100+(STICK(1)=1)*(t(INT(s/100), (s MOD 100)-1)<>1} *{(s MOD 100> 
1)-{(STICK(1)=2) * (t (INT(s/100), (s MOD 100)+1)<>1)*(s MOD 100<30) 
ms (u)=SGN (m(u) -s) * (INT (m(u) /100)>1)* (mu) MOD 100<40) * (t(INT(m 
(u)/100)-SGN(m{u)-s),mlu) MOD 100)=0)*100+SGN({m(u) MOD 100)-(s 
MOD 100))*({m{u) MOD 100<23)*{m{u) MOD 100>=1) * {t (INT (m{u) /100), 
mu) MOD 100)-SGN((m{u) MOD 100)-(s MOD 100)))=0) 
sc=sc-{t(INT(s/100),s MOD 100)=2) 
t{INT(s/100),s MOD 100)=0 
PRINT AT(INT(S/100)+1, (s MOD 100) +1) ;“o";AT (INT (mu) /100) +1, 
{m(u) MOD 100)+1});"+"; 

EXIT IF mlu)=s 
NEXT i 










MAIS ARRETE, 
TOUT LE MONDE 
NOUS REGARDE /.. 





PiBo 


Cyril Guerin nous propose le scrolling de deux images Degas, un 
effet sympathique. 


PRINT “Selectionner les deux images. La première d'abord” 
FILESELECT “a:\*.pil”,a$,noms 

FILESELECT “a:\*.pil”,a$,nom2$ 

BLOAD nom$, XBIOS (2)-34+XBI0S (5,L:1015808-32000, L:-1,W:0) 0 
BLOAD nom2$, XBIOS (3)-34+XB10S (6, L:XBIOS (2) -32) *0 

BMOVE XBIOS (2),1015808-64034, 32000 

FOR y1=199 TO O0 STEP -1 

RC_COPY 1015808-64034,0,-(y1-99) * (y1>100) ,320,200+100*(y|<=100) 
-yl T0 1015808-64034,0,-(y1-100) * (y1>100)-1*{y|<=100) 

RC_COPY XBIOS(3),0,y1-99*{y1<=100),320,1 TO 1015808-64034,0, - 
(99)*(y1>100) 

IF y|<=100 

RC_COPY 1015808-64034,0,103-y1,320,y|-3 TO 1015808-64034,0,102-y] 
RC_COPY XBIOS(3),0,y1,320,1 TO 1015808-64034,0, 99 

ENDIF 

BMOVE 1015808-64034, XBIOS (2), 32000 

NEXT yl 

FOR y|=0 TO 99 

RC_COPY 1015808-64034,0,0,320,100+y|] TO 1015808-64034,0,1 
RC_COPY XB10S(3),0,99-y1,320,1 TO 1015808-64034, 0,0 

BMOVE 1015808-64034, XBIOS (2),32000+XB10S (6, L:1015808-32032) *0 
NEXT yl| 
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Un petit jeu en G£A proposé par Flagnum, ce n'est pas un Punch, 
il faut sortir du labyrinthe. 


Les commandes: 


8 pour avancer 
4 pour aller à gauche 


6 pour aller à droite 
Return pour le plan 


DIM t (40, 40) 

x=1l 

y=21 

FOR i=0 TO 919 

t(-(i MOD 40)*{{i MOD 2}=0)+{i MOD 40)* (RND<O.6)*(i MOD 2©0),- 
INT(i/40)*(INT(i/40) MOD 2=0)+INT(i/40) * {RND<O. 6) * (INT (i/40) 
MOD 2©0)}=1 

t(i MOD 40,INT(i/40)}=-{t (MAX((i MOD 40)-1,0),MAX(INT(i/40)- 
1,0)) <>1} *t(i MOD 40,INT(i/40)) 

t(i MOD 40,INT(i/40)}=((i MOD 40-0)+(INT(i/40)=0)+{i MOD 
40=39)+(INT (i/40)=22)<>0) * (t{i MOD 40,INT(i/40)}<>1)-(t (i MOD 
40, INT (1/40) ) <>0) * (i<>900) * (i<>860) 

PBOX -{i MOD 40) *8*{t {à MOD 40, INT(i/40)}=1),-INT(i/40) *8*(t(i 
MOD 40,INT(i/40)}=1),-({i MOD 40)*8*(t{({i MOD 
40),INT(i/40)}=1}#7,-INT(i/40)*8*(t ((i MOD 40),INT(i/40))=1)+7 


NEXT i 
SGET laby$ 

REPEAT 

a$=INPUTS (1) 

d=d+(a$="4")-(a$="6")+25000 

1=ABS (d MOD 4) 

IF a$=CHRS (13) 

SPUT laby$ 

PRINT AT(x+1,y+1) ;MIDS{"">u<", 141,1) 

VOID INP (2) 

ENDIF 

x=x= (ABS (d MOD 4)=1)*(t(x+1,y)=0) * (a$="8")+{ABS(d MOD 
4)=3) *{t(x-1,y)=0) * (a$="8") 

y=y- (ABS (d MOD 4)=2)*(t{x, y+1)=0) * (a$="8")+(ABS(d MOD 
4)=0) * (t{x, y-1)=0) * (a$="8") 

CLS 

FOR i=3 TO 15 

u= (COS (i*P1/180)) "180 

uk=Cos ({i-1)*P1/180) 180 

a=x-(i-3) *((1=1)-(1=3)) 

b=y-(i-3) *((1=2)-(1=0)) 

EXIT IF t({a,b)=1 

DRAWN 160-(29-i/3) *6*u, 100-(29-i/3) *3.5xu TO 160-(29- 


i/3)*6*u,100+(29-i/3)*3.5*u TO 160+(29-i/3)*6*u, 100+(29- 
1/3)#3.5tu TO 160+(29-i/3) *6*u, 100-(29-1/3)*3.54u TO 160+(29- 
i/3)*6*u, 100 

LINE 160+(29-(i-1)/3) *6*uk, 100-(29-(i-1) /3)*3.5*ukx (t (a= 
(1=0)+(1=2) ,b-(1=1)+(1=3))=1)-(29-1/3) #3. 5*u* (t (a 

(1=0)+(1=2) ,b-(1=1)+(1=3))=0),160+(29-i/3)*64u, 100+ (29- 
i/3)*3.5%u 

LINE 160+(29-(i-1)/3) *6*uk, 100+(29- (1-1) /3)3.5*ukt (t (a- 
(1=0)+(1=2) ,b-(1=1)+(1=3))=1)+(29-i/3) *3.5#u* (t {a- 
(1=0)+(1=2) ,b-(1=1)+(1=3))=0),160+(29-i/3) *6*u, 100-{29- 

1/3) *3.5*u 

LINE 160-(29-(i-1)/3)*6*uk, 100-(29-(i-1) /3) #3. 5*uk* (t {a+{1=0)- 
(1=2),b+(1=1)-(1=3))=1)-(29-1/3) *3.5*u* (t (a+(1=0)- 

(1=2) ,b+(1=1)-(1=3))=0),160-(29-i/3) *6*u, 100+(29-i/3)*3.54u 
LINE 160-(29-(i-1) /3) *6*uk, 100+(29-(i-1)/3)*3.54uk* (t(a+{1=0)- 
(1=2),b+(1=1)-(1=3))=1)+(29-i/3) #3.5*u* {t (a+(1=0)- 

(1=2) ,b+(1=1)-(1=3))=0), 160-(29-i/3) *6*u, 100-(29-i/3) 43. 54u 
NEXT i 

BOX 160-(29-(i-1)/3) *6*uk, 100-(29-(i-1)/3) *3.54uk, 160+(29-(i- 
1)/3) *6*uk, 100+(29-(i-1) /3) *3.5*uk 

UNTIL y>=22 


P 





GFA-PUNCHS 


Un GfA-Punch, c'est plein de couleurs, de sons, d'algorithmes compliqués, de 


formules mathématiques, ça devrait être interdit. 
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Vous savez jouer à Tron? Trouvez-vous un copain, deux joysticks 
et tapez ce GfA-Punch de Flagnum. 


FOR i=0 TO 179 

BOX 16*{i MOD 18)+16,INT(i/18)*16+16,16*(i MOD 18)+32,INT(i/18) 
*16+32 

NEXT i 

REPEAT 

ttl== (POINT (x1+({INT(u/100)=4)-{INT (u/100)=8))*16+8,y1+{(INT(U 
/100)=1)-{INT (u/100)=2) ) *16+8)=0) 

tt2=- (POINT (x2+({u MOD 100=4)-(u MOD 100=8))*16+8,y2+((u MOD 
100=1)-(u MOD 100=2))*16+8)=0) 

PBOX -x1*(tt1<>0),-yl*(tt1<>0),-(x1-16* (x1<>0))*{tt1<>0),-(y1- 
16* (x1<>0)) * (tt1©0) 

PBOX =x2* (tt2<20) ,-y2*(tt2<>0),-(x2-16* (x2<>0) } * (tt2<>0) ,-(y2- 
16*(y2<>0) ) * (tt2©0) 
vl=y1+((-(y1>16) * (INT {u/100)=1) + (INT (u/100)=2) * (y1<152)) *16) 
stt1-16*(x1=0) 

x1=x1+((x1<288)* (INT (u/100)=8)-(INT(u/100)=4) * (x1>16))*16*tt1- 
16*(x1=0) 

y2=y2+((-(y2>16)* (u MOD 100=1)+{u MOD 100=2) * (y2<152) } *16) *tt2- 
16*10* (y2=0) 

x2=x2+((x2<288) * {u MOD 100=8)-(u MOD 100=4) * (x2>16) } *16*tt2- 
16*18* (x2=0) 

score=score= (y1>16) *{y1<152) * (x1<288) * (x1>0) *(tt1=1) *100-(tt2 
=1) *(y2>16) * (x2>0) * (y2<152) * (x2<288) 

PBOX x1,y1,x1+16,y1+16 

PBOX x2, y2,x2+16,y2+16 

PRINT AT(1,24);" joueur 1.: “;INT(score/100);" 
2 : “; (score MOD 100) ;CHR$(-7*{tt1<>0 OR tt2<>0}) 
u=STICK (1) *100+STICK (0) à 
UNTIL (POINT (x1+8,yl-8) <>0 AND POINT (x1-8,y1+8) <>0 AND POINT (x1 
+24,y1+8) ©0 AND POINT(x1+8,y1+24) 0) OR (POINT (x2+8,y2-8) <>0 
AND POINT (x2=8,y2+8)<>0 AND POINT (x2+24,y2+8)<>0 AND POINT (x2 
+8, y2+24) 0) 

PRINT AT(1,1);LEFTS(" GAGNANT 

36* (score MOD 100<>INT (score/100))};-2*{score MOD 
100>INT (score/100)}-(INT(score/100)>score MOD 100) ; LEFTS (" 
MATCH N U L",-40*(score MOD 100=INT(score/100))) 
STICK (0) 


joueur 


JOUEUR ",- 







Flagnum est amoureux et il le montre. 


FOR n$%=0 TO 7 

SETCOLOR 7-n%,7-n%,7-n%,7 

SETCOLOR n%+8,7,7-n%, 7-n% 

NEXT n4 

SETCOLOR 0,0,0,0 

ATEXT 10,90,0,"LE PARCOURS DU * 

FOR g=0 TO 0.13 STEP 0.01 

FOR a=0 TO 2*PI STEP 0.01 

y#=120-COS (a) *40-SOR (ABS (x%) ) *10 

X#$=SIN (a) *100 

PSET COS (g) * (x%+170)-SIN (g) *y%, SIN (g) * (x%+170)+COS (g) y, 

SR (xt *x8+y5*y8) /10 

NEXT a 

NEXT q 

FOR i=-P1/2 TO PI STEP 0.01 

PSET SIN(i)*25*i,=COS (1) *25*1+110, SOR( (SIN (i) *25*i)"2+(110- 
cos (i)*25*i) *2) /10+7 

PSET -(COS(i+3.6)*50+110) *(i<P1/8-0.6),-(SIN(i+3.6)*100+100) * 
(i<P1/8-0.6),-(S0R((SIN(i) *25*1) *2+ (110-C0S (1) *25*i) *2)/10) * 
{i<P1/8-0.6) 

PSET -(COS(i+3.6)*50+111) *(i<P1/8-0.6),-(SIN(i+3.6) *100+100) * 
(iP1/8-0.6),-(SOR((SIN(1) *25*1)*2+(110-C0S (1) *25*i) *2) /10) * 
(i<P1/8-0.6) 

PSET SIN(i)*25*i+1,-COS{i) *25*1+110, SOR{ (SIN (i) *25*i) 2+(110- 
cos (i)*25*1) *2)/10+7 

NEXT i 

VOID INP(2) 


Tu ME LE LiRAS, 


Denis Ollier, un habitué des GtA-Punchs, nous a préparé une 
danse des guerriers papous.* 


1 sprl$=MKIS$ (0) +MKIS (1)+MKIS (1) #MKIS (0) +MKI$ (4) 4MKIS (960) +MKI$ 
{(960)MKI$ (2016) +MKI$ (2016) +MKI$ (26016) #MKI$ (26016) +MKI$ (26592) 
AMKI$ (26592) +MKI1$ (25152) 4MKI$ (25152) +MKIS (32766) +MKI$ (32766) + 
MKIS (32766) 4MKI$ (32766) 4MKIS (2022) 4MKI$ (2022) +MKI$ (2022) +MKIS 
(2022) 

2 sprl$=sprl$+MKIS (16358) +MKIS (16358)4MKI$ (16352) +MKI$ (16352)+ 
MKIS (12384) +MKI$ (12384) +MKIS$ (61536) +MKIS$ (61536) +MKIS (61536) + 
MKIS (61536) +MKIS (120) +MKIS$ (120) +MKIS (120) MKIS$ (120) 

3 spr2$=MK1$ (0) 4MKI$ (1) +MKI$ (1) +MKIS (0) +MKIS (4) +MKI$ (960) +MKI$ 
(1960) +MKI$ (2016) +MK1$ (2016) +MKIS (1446) +MKIS$ (1446) #MKI$ (2022) + 
MKIS (2022) +MKIS$ (582) +MKIS (582) +MKIS (32766) 4MKI$ (32766) +MKIS 
(32766) #MKI$ (32766) #MKI$ (26592) +MKIS (26592) +MKIS$ (26592) +MKIS 
(26592) 

4 spr2$=spr2$#MKI$ (26620) +MKI$ (26620) +MKI$ (2044) +MKIS$ (2044) +K1$ 
{(1548)+MKI$ (1548) +MKIS$ (1551) +MKIS$ (1551) -#MK1$ (1551)-MKIS (1551) + 
MKIS (7680) +MKIS (7680) +MKI$ (7680) MKI$ (7680) 

5  a$=MKI$ (8H20)-MKIS (&H750) +MKIS (8H7)+MKIS (&H7)+MKIS (&H700) 

6 -XBIOS(6,L:VARPTR(a$)) 

7 SPRITE spr1l$,0,0 

8 SPRITE spr2$,20,0 

9 SGET e$ 


10 CLS 

11 s6=20 

12 EVERY 50 GOSUB a que anime 
13 REPEAT 

14 RC COPY V:e$,s£,0,16,16 TO XBIOS (2) , ADD (55, 50*SINQ(b-20) ),2 
15 ADD b,ABS(2*C0S0(2)) 

16  BMOVE XBIOS (2), ADD{XB10S (2), 364), 32000 
17 UNTIL MOUSEK 

18 PROCEDURE a que anime 

19  SWAP s£,s2€ 

20 RETURN 





HEIN, DIS Z7.. 


C'est le seul Punch qui tourne en monochrome, il est de 
Stéphane Bédon, c'est un jeu assez simple 


DIM ecr$ (24) 

TIME$="00 :00:00” 

space hunter (XBIOS (2)+2560, XBIOS (2)+1280, 40, 3,3) 
PROCEDURE space hunter (ecr1%,ecr2%,x|,yl,vies|) 
REPEAT 

KS$S=UPPERS (INKEY$) 

ADD x|,SUB(k$="W" AND x|>1,k$="X" AND x|<80) 
ADD yl,SUB(k$="M" AND y|>3,k$=":" AND y|<23) 
MIDS (ecr$ (24) , RANDOM (79) )="*#" 


OS ww © —J on Un OO ON + 


{"x", = (RANDOM (5) =4) ) 

11 PRINT AT(x|,yl};"V" 

12 PRINT AT(1,1); "Score: “;scores;TAB(19) ;“Koduks: “;koduksé ; TAB 
(43); "Temps: “; TIMES; TAB (71) ; "Vies: “;vies|;AT(1,24) ;ecr$ (24) ; 

13 DELETE ecr$ (2) 

14 ecr$(24)=SPACES (79) 

15 SUB scoreg,MUL(10,MID$ (ecr$(y1),x1,1)=CHR$ (249) ) +MUL (100, MIDS 
(ecr$(yl),xl,1)="x") 

16 ADD vies|,MID$ (ecr$(yl),xl,1)="#" 

17 BMOVE ecr1l%,ecr23%,29440 

18 INC kodukss 

19 UNTIL vies|=0 OR TIME$>="00:01:30" OR k$=CHRS (27) 

20 RETURN 
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MIDS (ecr$ (24) , RANDOM (80) }=LEFTS (CHRS (249) , - (RANDOM (5) >2) } +LEFTS$ 





CHUIS NUL 
P 


Tous ces Punchs, à l'exception 
d'un seul, tournent 


en Basse Résolution. 


Ils sont téléchargeables 
sur le 3615 STMAG. 





Arnauld Chevallier déplace un sigle en fil de fer, c'est 
surprenant . 


DATA 4,0200101101,3,00021210,3,02001210,3,10000212, 5, 000201111012 


2 e$=STRINGS (32256,0) 
3 VOID XB10S(5,L:INT((VARPTR (e$)+256)/256) *256,L:-1,W:-1)+ 
xB10S(7,0,3)+XB105 (7, 15,&H770} 
4 FOR k=0 TO 100 STEP 0.1 
5 VOID XBIOS(5,L:XBIOS (2) ,L:XBIOS (3) ,W:-1) 
6 CLS 
7 BOX 100+C0S({k)*100, 100+COS (k) *100,220-C0S {k) *100, 100-COS {k) *100 
8 FOR a%=0 TO 4 
9 READ np$,a$ 
10 FOR b$=0 TO np 
11 PLOT x$,y4 
12 x$=160+ (VAL (MIDS (a$,b%*2+1, 1) )}+a%*2-5) *40*COS (k*1.1) 
13 y#$=100+ (VAL (MIDS (a$,b%#2+2, 1))-1) *50*SIN (k) 
14 IF b& 
15 DRAW TO x%,y# 
16 ENDIF 
17 NEXT b$ 
18 NEXT a$ 
19 RESTORE 
20 NEXT k 
Denis Ollier nous offre ici son scrolling différentiel. Il faut 
obligatoirement être équipé,d 
1 DRAW 0,120 TO 110,88 TO 180,120 TO 250,90 TO 319,120 
2 DRAW 0,190 TO 50,160 TO 120,180 TO 180,155 TO 240,195 TO 
319,190 
3 CIRCLE 80,40,19 
4 FOR il=0 TO 3 
5 READ c$,x$,yà 
6  DEFFILL c$,l (Palette systeme. 
7  FILL x$,y$ 
8 NEXT il 
9 SGET ecr$ 
10 adr$=V:ecr$ 
11 REPEAT 
12 RC COPY adr$%,0,88,1,66 TO adr%,319,88 IBLITTER OBLIGATOIRE. 
13 RC COPY adr%,1,88,320,66 TO adr#,0,88 
14 RC COPY adr%,0,154,4,46 TO adr%,316, 154 
15 RC COPY adr%,3,154,316,46 TO adr%,0, 154 
16  VSYNC 
17 BMOVE ADD (adr%, 13920), ADD (XB1OS (2) ,13920), 18000 
18 UNTIL MOUSEK 
19 DATA 5,300,20,6,80, 40,9, 150, 140,8,150,195 
Encore un nouveau Punchiste, il s'appelle Arnauld Chevallier, 
et sa démo ne passe pas inaperçue, bravo pour les fontes! 
1 DIM 1$(26) 


2 c$=MKLS(1111)+MK1$ (839)+MKI$ (1360) +MKIS (816) +MKI$ (1632) +MKI$ (10 


88)4MKIS$ (1904) +STRINGS (16, 0) 


3 FOR a%=0*XB10S(6,L:VARPTR(c$)) TO 26 


 remplacez les points par des espaces (contrainte PAO) 


4 PRINT AT(1,1);CHR$(a%+64+33*(a%=0)) ; AT(9,a%/2+10) ;MIDS ("@R6. .@. 


.6.6..6..606.0..08..6.0..0.08.0.R6...8..RR@.@.@..@.6e.6.8....ee 
eRReR..0..R.R.RR.R....8..6@....60.0.0.06.R0...0..60....R6e..@.. 
@..886.8..@",1+INT(a%/4) *24,24) 

FOR x#=0 TO 48 

y$=x$ MOD 7 


5 
ë 
7 DEFFILL y#+2 
8 


PREOX x%/1.8-COS (y$) *3,y#*4+10+50% (POINT (x%/7,y%)=0),x%/1.8+7, 
y$*4+17+50% (POINT (x$/7, y$) =0) 


9 NEXT x$ 


10 GET 0,10,33,41,1$ (a$) 
11 PUT 0,10,1$(0) 
12 NEXT af 


13 m$=" HI GUYS 


1 JUST WANNA SHOW YOU THIS PUNCH DEMO WITH 
ITS FURIOUS SCROLLING WHICH COMES FROM MY CRAZY MIND I HOPE 
IT ISNT TOO FAST FOR YOU BE CAREFUL NOT TO BECOME 
NUTS"+SPACES (20) 


14 FOR z4=0 TO 10000 

15 k#%=(k%+1) MOD LEN {m$) *2 

16 BMOVE XBIOS(2)+8,XB10S (2), 5120 

17 PUT 304+16*ODD{k%),0*XB10S (7,15, (7-INT(z%/10) MOD 8) *VAL (MID$ 


("001257256272016017273",1+(INT(2%/80) MOD 7)*3,3))),1$ (ASC 
{MID$ (m$,k%/2, 1) }-64-32* (MIDS (m$,k%/2,1)=" *)) 


18 VSYNC 
19 SOUND 1,15,4#z3"2 
20 NEXT z% 
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Formation à l’assembleur pratique 


Formation au 


Formation au 
PROCESSEUR 88888 


UN BREF APERÇU HISTORIQUE 


1980: le 4040 
1991: le 88888 


FAISONS LA LUMIERE SUR LE 
LANTERNEAU DES FONDEURS 
DE SILICIUM 


(Note Au Claviste: j'ai bien écrit 
“lumière”, il ne s'agit pas d'une er- 
reur, c'est un mot d'auteur. Je 
connais les expressions de la 
langue française non mais). 


Au début des années 90, les fon- 
deurs (frondeurs? ah, ah, ah) riva- 
lisaient d'imagination pour imagi- 
ner un nouveau concept non 
imaginé encore par des confrères 
pourtant imaginatifs et qui allaient 
leur assurer la puissance et la gloi- 
re dans cet univers pitoyable. 


Ainsi a-t-on vu apparaître les pro- 
cesseurs CISC (Complex Instruc- 
tion Set Computer? euh Copro- 
cessor? euh Catéchisme?). 
Autrement dit, PIB, Processeur à 
Instructions Bordéliques, et non 
Produit Intérieur Brut, comme les 
économistes veulent nous le faire 
croire, c'est pour ça qu'ils se plan- 
tent toujours. 


Certains esprits avisés firent re- 


marquer: 


- Que finalement, statistique- 
ment, peu d'instructions du pro- 
cesseur sont utilisées, donc autant 
ne programmer sur le processeur 
que celles-ci. 

- Que si on ne programme (en 
fait, dans ce cas, on “cäble") que 

d'instructions, on pourra les 
faire ides, voire même 
s'exécuter en un seul cycle d'hor- 
loge, ce qui ne fait pas 24 heures 
et encore moins 12 heures. 

- Que les compilateurs ne.sont. 
de toutes façons pas'capables de 
tirer parti de centaines d'instruc- 
tions différentes, mordorées et 
criardes. 

- Que le Complex faisait plus 
sûrement référence au fait que la 
programmation était complexe (in- 
terprétation personnelle, pardon 
de me placer momentanément 
dans les esprits avisés, mais si je 
la fais plus tard, elle sera hors 
contexte, donc je la fais mainte- 
nant, ne m'en veuillez pas. Rassu- 
rez-vous, je ne suis pas, mais 
alors, pas du tout, avisé, sauf par- 
fois dans la rue, un quidam m'avi- 
se et me demande l'heure, et je lui 
réponds alors “Michel, t'as qu'à 
acheter une montre, tu es toujours 
en retard dans la programmation 
de tes serveurs", Ce à quoi vous 
rétorquerez, cher lecteur - il s'agit 
bien entendu d'un vous de polites- 
se, car je sais très bien qu'à ce 
stade du cours - ah, d'habitude, 
on court dans un stade, ah - il ne 
reste plus que Mic Dax, de son 
vrai nom Pericolo e Miniteli, pour 
me suivre - que s'il se nomme Mi- 
chel, DONC, ce n'est pas tout à 
fait un quidam. Enfin, le fait que je 
connaisse son nom laisse suppo- 
ser que je le connais. Ce peut 
donc être un quidam pour ceux 
qui ne le connaissent pas, mais 
pour moi ce n'en est pas un. 
D'ailleurs, on peut généraliser à 
tous les prénoms, ça marche aussi 
si ce n'est pas Michel, essayez, 
vous verrez. C'est fou comme une 
simple phrase comme “Un quidam 
m'avise." peut faire réaliser à quel 
point notre vision du monde dé- 
pend du point de vue, et la focalo, 
et tant va la cruche à l'eau qu'à la 
fin elle se mouille.). 


DONC les fondeurs inventèrent 


des processeurs d'une nouvelle 
génération, ce qui fait une liaison 
avec le chapitre suivant. 
Avez-vous remarqué comme le fait 
de mettre “donc” vous fait croire 
que le chapitre suivant est intro- 
duit d'une manière logiquement ir- 
réfutable? Ce n'est qu'ilusion, 
méfiez-vous des escrocs qui met- 
tent des "donc" pour cautionner 
une argumentation par trop légère. 
C'est mon cas. 


INTRODUCTION DES PROCES- 
SEURS A (HAUT) RISC 


Alors là, tu me dis, Mic - tu per- 
mets que je t'appelle au télépho- 
ne? - que celle-là elle est éhonte- 
ment éculée. 

Et alors là je te réponds: oui. 


Donc, les frondeurs pompèrent les 
études faites à l'Université de Ber- 
keley, mère de toutes les innova- 
tions et commençürent à mettre 
sur le marché des processeurs 
dits "RISC*. 

RISC, c'est Reduced Instruction Set 
Computer? euh Coprocessor? euh 
Catastrophe?. Autrement dit PIRE 
(Processeur à Instruction Réduites 
mais Efficaces). 

Le concept est le suivant: un 
nombre réduit d'instructions dans 
le processeur, mais des instruc- 
tions efficaces. 


C'est de la paraphrase? Oui. 


En fait, les processeurs RISC ont 
un nombre d'instructions très ré- 
duit, en général 32 ou 64, ce qui 
leur permet d'être toutes cäblées. 
Et donc de s'exécuter en un cycle 
d'horloge, sauf pour quelques- 
unes genre la multiplication, mais 
bon, on se démerde dans ce cas 
avec une architecture dite Pipe- 
Line-Renaud - et non pas Line 
pipe euh bon bref - pour faire croi- 
re que c'est en une seule instruc- 
tion. Bon j'arrête, je commence à 
vraiment expliquer, ce n'est pas le 
but. (Mic: - si. Moi: - m'en fous.) 


DONC nous en venons au 88888. 
LE 88888 de FYC 


La sortie du 88888 est due à la cé- 
lèbre shoot'em up américaine FYC 
Fuck Your Computer), filiale de la 
non moins non-confidentielle s0- 
ciété française NTM. 


Cette société a poussé à l'extrême 
les recherches sur les processeurs 
RISC et a inventé le OOOC (Only 
One Operation Computer? euh 
Coprocessor? Euh..?). 


OOOC, ça veut dire processeur à 
une seule instruction, je n'ai aucu- 
ne abréviation marrante à vous 
proposer, pardon. 


Ce processeur, dont la complexité 
interne n'a d'égale que sa facilité 
d'utilisation, donc, ne propose 
qu'une seule instruction, le NOP. 


APARTE DISCRET 


Là, je vous raconte une anecdote 
pour prouver que je m'intéresse 
aux potins de la profession: il se 
trouve que FYC vient de rompre 
sans ménagement avec le fameux 
Green Hills qui développait le com- 
pilateur C et Fortranvan 77 - For- 
tran 77 a été renommé depuis le 
rachat de tous les droits par Sony. 
- Car à son sens les compilateurs 
ne tiraient pas parti de toutes les 
possibilités du processeur. 

À mon avis, ce sont des histoires 
de gros sous, ils disent ça pour 
amuser la galerie, c'est magouilles 
et compagnie, on me la fait pas à 
moi. 















RECHERCHE FONDAMENTALE 


DONC, je précise que la recherche 
fondamentale effectuée par NTM 
et reprise à son compte par FYC a 
abouti à une technologie révolu- 
tionnaire, non encore imaginée par 
les concurrents, et prenant à 
contre-pied les-dits concurrents 
non aussi imaginatifs dans la re- 
cherche fondamentale, là où pour- 
tant les cerveaux les plus imagina- 
tifs rivalisent d'imagination, enfin 
j'imagine. 


Pendant que le monde entier s'est 
engagé dans une course effrénée 
à la vitesse d'horloge, FYC avait 
décidé d'échantillonner sa puce à 
2Hz, les versions livrées aux 
constructeurs seront finalement à 
1Hz, et une version à 0,125Hz est 
déjà dans les cartons. 


Avantage déterminant: l'opérateur 
a le temps de recopier en temps 
réel les ordres sur son Atari (la ver- 
sion à 2Hz exige une frappe rapi- 
de, mais la version 0,125Hz per- 
mettra l'embauche de main 
d'oeuvre sous-qualifiée, FYC ré- 
sout de ce fait un des plus grands 
dilemnes de cette fin de siècle: si 
j'informatise pas je meurs, si j'in- 
formatise je mets au chômage les 
travailleurs sous-qualifiés). 


CA, C'EST LACHE! 


Quel dommage! Le nombre de 
signes qui m'était alloué pour ce 
cours d'assembleur 88888 est at- 
teint! Je ne pourrai donc pas vous 
parier plus avant des nombreuses 
optimisations de ce processeur, 
pas plus que je ne pourrai com- 
menter le listing exemple - une si- 
mulation de Plextel - que j'avais 
préparé à votre attention. 


Mais qu'importe, nous nous re- 
trouverons dans le prochain nu- 
méro (n'essayez pas d'acheter 
plusieurs numéros en kiosque, hein, 
le contenu est le même, il faut tout 
leur dire? A la réflexion, si, ache- 
tez-en plusieurs, ça fera plaisir au 
Boss.). 


Ah, au fait, je ne le dis pas parce 
que je suis modeste mais je viens 
de vous donner un scoop, le 
88888 ne sortira qu'en 2001 - au 
Lycée de l'Espace, centre de re- 
cherche semi-conducteur de la 
NASA -, j'ai juste eu une version 
de test assez jouable, mais FYC 
m'a assuré que le version finale 
comporterait des instructions 
identiques. 

Bon, personne n'est arrivé au 
bout? J'éteinds le lanterneau et je 
me casse. Ciaol 


Fabrice BROCHE 
Alias the bug generator euh 
the bug killer euh Byte();. 


(NAC: c'est bien "lanterneau”, 
hein, pas “landerneau", hein, n'al- 
lez pas mettre mon effet par terre, 
on est déjà si peu de choses.) 
(Note Du Claviste A l'Auteur: 
mmmmhhhh?). 


COUPONS LA TETE AUX 
FAISEURS DE MAUVAIS 
JEUX DE MOTS ! 























RISC / CISC 


LES PROCESSEURS RISC SONT- 
ILS “DÉBILES” ? 


Le micro-processeur, comme vous 
devez le savoir, est la partie la plus 
importante d'un ordinateur. C'est 
son intelligence, s'il est possible 


. de parler “d'intelligence”. En fait, 


le micro-processeur est le centre 
nerveux de la machine, c'est lui 
qui exécute le programme (ou qui 
se plante quand il essaie de déco- 
der les embrouillaminis du “Ré- 
dacteur”) et donne les ordres aux 
composants associés. Seulement 
voilà, il y a plusieurs types de pro- 
cesseurs qui s'affrontent, et qui 
regroupent les utilisateurs en deux 
“écoles”. 


D'un côté, le CISC, ou processeur 
à jeu d'instructions complexe, a 
été le premier à voir le jour. II a été 
grandement représenté avec les 
6502, Z80, 68000/20/30 ou encore 
8086/286/386. À l'opposé, le RISC, 
ou processeur à jeu d'instructions 
réduit, ne contient donc que peu 
d'instructions. Sa structure permet 
alors d'accélérer les traitements, 
et d'effectuer des anticipations. 
Mais l'on est en droit de se poser 
la question suivante : “Mieux vaut- 
il une tête bien faite ou une tête 
bien pleine?”. Nous nous base- 
rons sur la résolution de deux pro- 
blèmes pour tenter de répondre à 
cette question. 


Imaginons un instant que l’on soit 
dans la quatrième dimension, et 
que Albert Einstein soit un androï- 
de basé sur un processeur CISC. 
Son ami, “Sylvestre” Stallone, est 
lui équipé d’un modèle RISC. AI- 
bert connaît beaucoup de choses, 
a un esprit déductif, mais travaille 
moins vite que Sylvestre. Ce der- 
nier ne sait rien, ou alors tout juste 
le prénom de sa petite amie (elle 
aussi androïde), mais est doué 
d'une rapidité de calcul époustou- 
flante. 


.… Superbe reliure “ST Magazine", d'un beau 
bleu rci et frappés de notre ancien logo ST 
Mag. Grâce à notre superbe reliure, ne perdez 
plus vos numéros, ne les laissez plus prendre 
la poussière et mettez-les à l'abri des imbé- 





"CISC" 


Afin de les départager, nous les 
confrontons à deux problèmes : 

- Y at-il une équivalence entre 
l'énergie E et la masse m d'un 
corps, sachant qu'il faut tenir 
compte de la célérité de lumière ? 
Si oui, la trouver. 

- Quelles sont, parmi les consé- 
quences suivantes, les effets ini- 
tiaux de l'arme nucléaire sur 
l'homme : vomissements, fièvres, 
diarrhées, cécité, brûlures, cyano- 
se, constriction et enfin éclate- 
ments d'organes ? 


Le premier sujet, Albert, comprend 
que les questions sont “à tiroir”, et 
qu'il lui faut répondre à la première 
avant de passer à la seconde. 
Comme il est relativement lent, il 
met quelques années à trouver le 
résultat E=mc2. Puis c'est grâce à 
cette formule (qui est à l'origine de 
la libération de l'énergie nucléaire) 
que ses camarades réalisent la 
première bombe atomique. Il ne lui 
reste plus qu'à attendre une expe- 
rimentation “grandeur réelle”, soit 
l'attaque d’Hiroshima, pour déter- 
miner les effets exacts de l’arme 
nucléaire. 


CONCOURS 
STMAGICIEL 
SUZUKI : 
GAGNEZ UNE 


ciles. Pour recevoir CHEZ VOUS cette superbe 
reliure, envoyez dès maintenant 5 coupons 


Coupons à renvoyer à STMAGICIEL, 19 rue Hégésippe Moreau, 
75018 PARIS. Réglement disponible chez l'Huissler Maître Etmon- 
polngtuleveuxdanslagueulemonpoingtulevoisiäpauvreandouille. 


“POINT CONCOURS" découpés dans STMAGI- 
CIEL. Le 100° lecteur nous renvoyant ces cou- 
pons recevra CHEZ LUI notre superbe relire. 
Le concours sera clos le 15 Juillet 1992, cate 
de parution du numéro 2 de STMAGICIEL. 








“RISC" 


Sylvestre, basé sur un processeur 
RISC, est bien trop rapide. Il brûle 
la première étape pour expérimen- 
ter la seconde. Il arrive à se procu- 
rer Une bombe atomique, s'enfer- 
me chez-lui et actionne le 
détonateur. Malheureusement, il 
n'a pas le temps d'en noter les ef- 
fets, et de toutes façons, il ne sait 
pas écrire |! 


Voici donc en quelques lignes la 
démonstration de la suprématie des 
micro-processeurs CISC. Alors, si 
votre revendeur habituel vous pro- 
pose d'échanger “pour pas cher” 
votre 68000 contre un 88000, mé- 
fiez-vous ! 


Sébastien MOUGEY 
(qui a oublié de mettre des in- 
tertitres) 
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Les plus attentifs de nos lecteurs 
auront reconnu dans STMAGICIEL 
un hommage vibrant à un canard 
d'informatique ayant sévi entre 
1984 et 1986, il s'appelait HEB- 
DOGICIEL et il avait connu un suc- 
cès phénoménal. Pas fous, nous 
n'allions pas rendre hommage à 
un fanzine minable pas connu, ça 
serait du suicide. On veut bien fai- 
re des hommages, à condition que 
ça rapporte du fric, c'est pas de- 
main la veille qu'on bossera pour 
des nèfles. Parce que c'est vrai, 
quoi, HEBDOGICIEL, on s'en tape, 
mais si ça peut rapporter des mil- 
lions, on est les premiers à jouer 
les lèche-culs. 

Aujourd'hui encore, pas mal de 
lecteurs nous écrivent pour savoir 
ce qu'est devenu HEBDOGICIEL, 
alors qu'on en sait que d'chi. En 
fait, si, on sait, mais c'est comme 
tout, chaque profession a ses pe- 
tites manies, ses mots tabous. 
Prenez le théatreux et sa corde, 










PRET À TRAQUER 
L'INFO À TRAVERS 
LE MONDE ? 


QUE SONT-ILS DEVENUS ? 


par exemple. HEBDOGICIEL, c'est 
pareil, mieux vaut ne pas en par- 
ler, va savoir pourquoi, encore une 
connerie de tradition à la con, je 
sais pas ce qui m'empêche de 
tout vous dire, tiens. 

- psssstttt, 

- tiens, salut Godefroy, qu'est-ce 
que tu veux? 

- je peux te parler? 

- deux secondes, je mets un truc 
pour être tranquille. 


INTERLUDE 


Bon, je vous dirai tout sur la mort 
d'HEBDOGICIEL dans le numéro 2 
de STMAGICIEL, mais alors, tout, 
tout, tout, ça sera grandiose, il y 
aura des photos, des déclarations, 
ne le manquez pas. 

En attendant, je peux vous dire ce 
que sont devenus ceux qui ont ti- 
tré en 86, à la une d'HEBDOGI- 
CIEL, “L'informatique, c'est de la 
merde". 


Gérard CECCALDI, le Directeur De 
La Publication, a ouvert un serveur 
informatique dédié au Mac, il l'a 
écrit lui-même en Basic. Allez le 
gonfler sur le 3615 HG1. 


Michel DESANGLES, Rédacteur 
en Chef Adjoint, véritable gourou, 
est aujourd'hui Rédacteur en Chef 
Adjoint du magazine Joystick, un 
canard de micro-informatique, après 
avoir été Rédacteur en Chef de ST 
Magazine. Il fait croire à tout le 
monde qu'il va faire plein d'autres 
trucs, mais on sait tous que tu 
n'aimes QUE l'informatique et la 
presse, Michel, allons. 


CARALI, le dessineux, collabore 
maintenant à Micronews, magazi- 
ne informatique réalisant une des 
plus fortes ventes dans ce domai- 
ne sur la Bretagne, et continue Le 
Psikopat, avec Michel, comme quoi 
je suis qu'une mauvaise langue. 





LACHEZ CE 
JOURNAL 








ON SE SENT LE 
GENIE D'UN 
CRÉATEUR ? 


Michaël THEVENET, de la Rédac- 
tion (Mich & Micha) écrit à présent 
pour Univers Mac, un magazine 
qui traite d'informatique et de Mac... 
- psssttt… 


INTERLUDE 


Pardon: Univers Mac, un EXCEL- 
LENT magazine qui traite d'informa- 
tique et de Mac. 


Stéphane Schreiber, de la Rédac- 
tion lui aussi, paie ses dettes de 
jeu en bossant pour Commodore 
Amiga Revue, une revue d'infor- 
matique. 


Sébastien MOUGEY, qui s'occu- 
pait de la formation à l'assembleur 
sur C64, a laissé tomber son mi- 
cro-serveur ADN pour mieux se 
consacrer à sa collaboration avec 
ST Magazine, où il est aujourd'hui 
Rédacteur en Chef Adjoint Quand 
Il n'Est Pas En Vacances Ou Au 
Service Militaire. 


Fabrice BROCHE, qui était chargé 
de la formation à l'assembleur sur 
Oric, a laissé tomber son Téléstrat, 
la dope et sa nana pour mieux 


bosser sur son soft serveur, qu'il a 






lächement revendu par derrière à 
Génération 4 et à Joystick (que des 
types drôlement fins ont rebapti- 
sés Pénétration 4 et Jastique, c'est 
fin, hein?). 


Jean-Marc GASNOT, le Maquet- 
tiste, officie actuellement chez Mi- 
cronews, encore et encore, en tant 
que Maquettiste, d'accord d'ac- 
cord. 


Les autres sont morts, évanouis 
dans la nature, ou ont été expul- 
sés pour trouble de l'ordre public, 
éliminés par le Mossad, on ne sait 
pas, nous n'avons pas de leurs 
nouvelles, et on va pas faire des 
recherches, non plus, rien à battre. 


A bientôt pour un prochain numé- 
ro de STMAGICIEL, qui prendra 
certainement un autre nom parce 
que ça va deux minutes. 


EM LE MENU SE 


Le menu se trouve dans les 
pages intérieures, tout bêtement 
parce que nous sommes Sur une 
page quadri (-quadri-chromie). 
Les pages en quadri (-couleur) 
partent en fabrication avant les 
pages en noir (=noir), il faut le 
temps de rajouter les couleurs, 
vous avez 3 jeunes filles vierges 
qui retouchent la page au 
pinceau au poil de koala, sinon 
ça marche pas. L'inconvénient, 
c'est que ça prend du temps, et 
qu'il faut prévoir longtemps à 
l'avance, de préférence à un 
moment où les pages en noir ne 
sont pas encore faites. Voilà le 
hic, le menu n'est pas encore 
prêt, il reste encore 20 pages en 
noir à maquetter, et les numéros 
de page ne sont pas encore 
posés, c'est un vrai bazar, pas 
moyen de vous faire un menu. 
On le fera quand toutes les 
pages seront faites, sur une 
page en noir. 






























C'EST MALIN , 
VOUS ETES 
CONTAMINE, 
MAINTENANT | 


BUREAUTIQUE ET 
COMMUNICATION 








CRÉATIVITÉ 
JEUX VIDEO 
FOIRE AUX AFFAIRES 
LE VILLAGE CD 


POUR VOUS, 
L'INFORMATIQUE, 
C'EST SERIEUX ? 


FATIGUÉ DES 
PROGRAMMES DES 
AUTRES ? 


CEQU'IL 
VOUS FAUT. 
C'EST 

UNE PETITE 
VISITE CHEZ 
VOTRE 
KIOSQUIER 
LE PLUS 2 
PROCHE | censé 
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LE MONDE À 
 L'ENVERS : UN 
EMULATEUR TT 
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